mirrors/org-mode
0
0
Fork 1
mirror of https://git.savannah.gnu.org/git/emacs/org-mode.git synced 2024-09-13 10:40:47 +00:00
Code Releases Activity

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

Browse source 
* 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