Function: org-element--put-parray

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

Signature

(org-element--put-parray NODE &optional PARRAY)

Documentation

Initialize standard property array in NODE.

Return the array or nil when NODE is plain-text.

Source Code

;; Defined in /usr/src/emacs/lisp/org/org-element-ast.el.gz
(define-inline org-element--put-parray (node &optional parray)
  "Initialize standard property array in NODE.
Return the array or nil when NODE is `plain-text'."
  (inline-letevals (node parray)
    (inline-quote
     (let ((parray ,parray))
       (unless (or parray (memq (org-element-type ,node) '(plain-text nil)))
         (setq parray (make-vector ,(length org-element--standard-properties) nil))
         ;; Copy plist standard properties back to parray.
         (let ((stdplist org-element--standard-properties-idxs))
           (while stdplist
             (aset parray (cadr stdplist)
                   (org-element--plist-property (car stdplist) ,node))
             (setq stdplist (cddr stdplist))))
         (setcar (cdr ,node)
                 (nconc (list :standard-properties parray)
                        (cadr ,node)))
         parray)))))