瀏覽代碼

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

* contrib/lisp/org-export.el (org-export-get-next-element): New function.
Nicolas Goaziou 13 年之前
父節點
當前提交
a47713717b
共有 1 個文件被更改,包括 10 次插入0 次删除
  1. 10 0
      contrib/lisp/org-export.el

+ 10 - 0
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