summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorNicolas Goaziou <n.goaziou@gmail.com>2012-01-23 22:09:37 +0100
committerNicolas Goaziou <n.goaziou@gmail.com>2012-01-23 22:15:39 +0100
commita47713717b6e264ddecbabd4e3758458cdff25ab (patch)
tree18204835d120d078a4bca137e016ce6655fbc658
parentc31067803f88842a2604cc22a5c074d2b2f9c20f (diff)
downloadorg-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.el10
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