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