diff --git a/contrib/lisp/org-element.el b/contrib/lisp/org-element.el index d3390dcdf..872fcfef9 100644 --- a/contrib/lisp/org-element.el +++ b/contrib/lisp/org-element.el @@ -3097,7 +3097,7 @@ CONTENTS is nil." ;; that `org-element-set-element' and `org-element-adopt-element' are ;; higher level functions since also update `:parent' property. -(defun org-element-type (element) +(defsubst org-element-type (element) "Return type of ELEMENT. The function returns the type of the element or object provided. @@ -3109,15 +3109,15 @@ It can also return the following special value: ((not (consp element)) (and (stringp element) 'plain-text)) ((symbolp (car element)) (car element)))) -(defun org-element-property (property element) +(defsubst org-element-property (property element) "Extract the value from the PROPERTY of an ELEMENT." (plist-get (nth 1 element) property)) -(defun org-element-contents (element) +(defsubst org-element-contents (element) "Extract contents from an ELEMENT." (and (consp element) (nthcdr 2 element))) -(defun org-element-restriction (element) +(defsubst org-element-restriction (element) "Return restriction associated to ELEMENT. ELEMENT can be an element, an object or a symbol representing an element or object type."