diff options
author | Nicolas Goaziou <n.goaziou@gmail.com> | 2012-01-23 22:09:37 +0100 |
---|---|---|
committer | Nicolas Goaziou <n.goaziou@gmail.com> | 2012-01-23 22:15:39 +0100 |
commit | a47713717b6e264ddecbabd4e3758458cdff25ab (patch) | |
tree | 18204835d120d078a4bca137e016ce6655fbc658 | |
parent | c31067803f88842a2604cc22a5c074d2b2f9c20f (diff) | |
download | org-mode-a47713717b6e264ddecbabd4e3758458cdff25ab.tar.gz |
org-export: Add function to retrieve next element/object in parse tree
* contrib/lisp/org-export.el (org-export-get-next-element): New function.
-rw-r--r-- | contrib/lisp/org-export.el | 10 |
1 files changed, 10 insertions, 0 deletions
diff --git a/contrib/lisp/org-export.el b/contrib/lisp/org-export.el index 10b5eb0..3445d1e 100644 --- a/contrib/lisp/org-export.el +++ b/contrib/lisp/org-export.el @@ -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 |