ndwarshuis
/
org-mode
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

org-export: Add function to retrieve next element/object in parse tree 

* contrib/lisp/org-export.el (org-export-get-next-element): New function.
This commit is contained in:
Nicolas Goaziou 2012-01-23 22:09:37 +01:00
parent c31067803f
commit a47713717b
1 changed files with 10 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
contrib/lisp/org-export.el
View File

@ -2863,6 +2863,16 @@ Return previous element or object, a string, or nil."
(let ((parent (car (plist-get info :genealogy))))
(cadr (member blob (reverse (org-element-get-contents parent))))))
(defun org-export-get-next-element (blob info)
"Return next element or object.
BLOB is an element or object. INFO is a plist used as
a communication channel.
Return next element or object, a string, or nil."
(let ((parent (car (plist-get info :genealogy))))
(cadr (member blob (org-element-get-contents parent)))))
;;; The Dispatcher