Function: org-element--put-parray--inliner

org-element--put-parray--inliner is a function defined in org-element-ast.el.gz.

Signature

(org-element--put-parray--inliner INLINE--FORM NODE &optional PARRAY)

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 node &optional parray)
  ((ignore inline--form)
   (catch 'inline--just-use
     (let*
	 ((exp node)
	  (node
	   (if (macroexp-copyable-p exp) exp (make-symbol "node")))
	  (body
	   (let*
	       ((exp parray)
		(parray
		 (if (macroexp-copyable-p exp) exp
		   (make-symbol "parray")))
		(body
		 (list 'let (list (list 'parray parray))
		       (list 'unless
			     (list 'or 'parray
				   (list 'memq
					 (list 'org-element-type node)
					 (list 'quote
					       (list 'plain-text nil))))
			     (list 'setq 'parray
				   (list 'make-vector
					 (length
					  org-element--standard-properties)
					 nil))
			     (list 'let
				   (list
				    (list 'stdplist
					  'org-element--standard-properties-idxs))
				   (list 'while 'stdplist
					 (list 'aset 'parray
					       (list 'cadr 'stdplist)
					       (list
						'org-element--plist-property
						(list 'car 'stdplist)
						node))
					 (list 'setq 'stdplist
					       (list 'cddr 'stdplist))))
			     (list 'setcar (list 'cdr node)
				   (list 'nconc
					 (list 'list
					       :standard-properties
					       'parray)
					 (list 'cadr node)))
			     'parray))))
	     (if (eq parray exp) body
	       (macroexp-let* (list (list parray exp)) body)))))
       (if (eq node exp) body
	 (macroexp-let* (list (list node exp)) body)))))
  (t)]