From a47713717b6e264ddecbabd4e3758458cdff25ab Mon Sep 17 00:00:00 2001 From: Nicolas Goaziou Date: Mon, 23 Jan 2012 22:09:37 +0100 Subject: [PATCH] org-export: Add function to retrieve next element/object in parse tree * contrib/lisp/org-export.el (org-export-get-next-element): New function. --- contrib/lisp/org-export.el | 10 ++++++++++ 1 file changed, 10 insertions(+) diff --git a/contrib/lisp/org-export.el b/contrib/lisp/org-export.el index 10b5eb0d0..3445d1ec5 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