[elpa] externals/org 9082fa8892: Merge branch 'bugfix'

[ELPA Syncer]

branch: externals/org
commit 9082fa889208f4b7adebe68e0138ec43440d1059
Merge: c9f3de6e8f 84e5a4da54
Author: Ihor Radchenko <yantar92@posteo.net>
Commit: Ihor Radchenko <yantar92@posteo.net>

    Merge branch 'bugfix'
---
 lisp/org-element.el      |  3 ++-
 testing/lisp/test-org.el | 25 ++++++++++++++++++++++++-
 2 files changed, 26 insertions(+), 2 deletions(-)

diff --git a/lisp/org-element.el b/lisp/org-element.el
index 51032c81b6..2192eb652c 100644
--- a/lisp/org-element.el
+++ b/lisp/org-element.el
@@ -7708,7 +7708,8 @@ the cache."
                             ;; it to real beginning then despite
                             ;; START being larger.
                             (setq start nil)
-                            (move-start-to-next-match nil)
+                            (let ((data nil)) ; data may not be valid. ignore 
it.
+                              (move-start-to-next-match nil))
                             ;; The new element may now start before
                             ;; or at already processed position.
                             ;; Make sure that we continue from an
diff --git a/testing/lisp/test-org.el b/testing/lisp/test-org.el
index 1c283dde72..1b59c48d61 100644
--- a/testing/lisp/test-org.el
+++ b/testing/lisp/test-org.el
@@ -2820,7 +2820,30 @@ SCHEDULED: <2014-03-04 tue.>"
                (beginning-of-line 2)
                (insert "test\n")
                (beginning-of-line -1)))
-            acc))))))
+            acc)))))
+  ;; Removing heading being processed.
+  (should
+   (equal
+    "Some text
+Some text
+Some more text
+Let’s stop here
+"
+    (org-test-with-temp-text
+        "* Heading 1
+Some text
+** Heading 1.1
+Some text
+* Heading 2
+Some more text
+** Heading 2.1
+Let’s stop here
+"
+      (org-map-entries
+       (lambda ()
+         (delete-region (point) (line-beginning-position 2))
+         (setq org-map-continue-from (point))))
+      (buffer-string)))))
 
 (ert-deftest test-org/edit-headline ()
   "Test `org-edit-headline' specifications."