tec/org-mode
tec
/
org-mode
forked from mirrors/org-mode
1
0
Fork 0
Code Pull Requests Releases Activity

org-element: Inline accessors 

* contrib/lisp/org-element.el (org-element-type, org-element-property,
  org-element-contents, org-element-restriction): Inline functions.
This commit is contained in:
Nicolas Goaziou 2012-07-15 12:27:54 +02:00
parent ebad68a059
commit b6edf5649c
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
contrib/lisp/org-element.el
View File

@ -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."