Function: org-element-property-raw--inliner

org-element-property-raw--inliner is a function defined in org-element-ast.el.gz.

Signature

(org-element-property-raw--inliner INLINE--FORM PROPERTY NODE &optional DFLT)

Source Code

;; Defined in /usr/src/emacs/lisp/org/org-element-ast.el.gz
;; Could not find source code, showing raw function object.
#[(inline--form property node &optional dflt)
  ((ignore inline--form)
   (catch 'inline--just-use
     (let*
	 ((exp node)
	  (node
	   (if (macroexp-copyable-p exp) exp (make-symbol "node")))
	  (body
	   (let*
	       ((exp property)
		(property
		 (if (macroexp-copyable-p exp) exp
		   (make-symbol "property")))
		(body
		 (let
		     ((idx
		       (org-element--property-idx
			(cond
			 ((not
			   (or (macroexp-const-p property)
			       (eq (car-safe property) 'function)))
			  (throw 'inline--just-use inline--form))
			 ((consp property) (car (cdr property)))
			 (t property)))))
		   (list 'let
			 (list
			  (list 'idx
				(list 'or idx
				      (list 'org-element--property-idx
					    property))))
			 (list 'if-let
			       (list
				(list 'parray
				      (list 'and 'idx
					    (list 'org-element--parray
						  node))))
			       (list 'pcase (list 'aref 'parray 'idx)
				     (list
				      (list '\` 'org-element-ast--nil)
				      dflt)
				     (list 'val 'val))
			       (list 'org-element--plist-property
				     property node dflt))))))
	     (if (eq property exp) body
	       (macroexp-let* (list (list property exp)) body)))))
       (if (eq node exp) body
	 (macroexp-let* (list (list node exp)) body)))))
  (t)]