Function: org-element-type-p--inliner

org-element-type-p--inliner is a function defined in org-element-ast.el.gz.

Signature

(org-element-type-p--inliner INLINE--FORM NODE TYPES)

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 types)
  ((ignore inline--form)
   (catch 'inline--just-use
     (let*
	 ((exp node)
	  (node
	   (if (macroexp-copyable-p exp) exp (make-symbol "node")))
	  (body
	   (let*
	       ((exp types)
		(types
		 (if (macroexp-copyable-p exp) exp
		   (make-symbol "types")))
		(body
		 (if
		     (listp
		      (cond
		       ((not
			 (or (macroexp-const-p types)
			     (eq (car-safe types) 'function)))
			(throw 'inline--just-use inline--form))
		       ((consp types) (car (cdr types))) (t types)))
		     (list 'memq (list 'org-element-type node t) types)
		   (list 'eq (list 'org-element-type node t) types))))
	     (if (eq types exp) body
	       (macroexp-let* (list (list types exp)) body)))))
       (if (eq node exp) body
	 (macroexp-let* (list (list node exp)) body)))))
  (t)]