Function: org-element--plist-property--inliner

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

Signature

(org-element--plist-property--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 property)
	  (property
	   (if (macroexp-copyable-p exp) exp (make-symbol "property")))
	  (body
	   (let*
	       ((exp node)
		(node
		 (if (macroexp-copyable-p exp) exp
		   (make-symbol "node")))
		(body
		 (let*
		     ((exp dflt)
		      (dflt
		       (if (macroexp-copyable-p exp) exp
			 (make-symbol "dflt")))
		      (body
		       (list 'pcase (list 'org-element-type node)
			     (list (list '\` nil) dflt)
			     (list (list '\` 'plain-text)
				   (list 'or
					 (list 'get-text-property 0
					       property node)
					 (list 'when dflt
					       (list 'if
						     (list
						      'with-no-warnings
						      (list
						       'plist-member
						       (list
							'text-properties-at
							0 node)
						       property))
						     nil dflt))))
			     (list '_
				   (list 'or
					 (list 'plist-get
					       (list 'nth 1 node)
					       property)
					 (list 'when dflt
					       (list 'if
						     (list
						      'with-no-warnings
						      (list
						       'plist-member
						       (list 'nth 1
							     node)
						       property))
						     nil dflt)))))))
		   (if (eq dflt exp) body
		     (macroexp-let* (list (list dflt exp)) body)))))
	     (if (eq node exp) body
	       (macroexp-let* (list (list node exp)) body)))))
       (if (eq property exp) body
	 (macroexp-let* (list (list property exp)) body)))))
  (t)]