[elpa] externals/org e1aebc1 2/3: org-element--cache-for-removal: Error out of irrecoverable failure

[ELPA Syncer]

branch: externals/org
commit e1aebc1a41ecb1d75d71b4fdee443a083759f12b
Author: Ihor Radchenko <yantar92@gmail.com>
Commit: Ihor Radchenko <yantar92@gmail.com>

    org-element--cache-for-removal: Error out of irrecoverable failure
    
    * lisp/org-element.el (org-element--cache-for-removal): Consider wrong
    parent to be critical failure: reset the cache and abort current
    command.
---
 lisp/org-element.el | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/lisp/org-element.el b/lisp/org-element.el
index 752912e..c323471 100644
--- a/lisp/org-element.el
+++ b/lisp/org-element.el
@@ -6700,7 +6700,9 @@ known element in cache (it may start after END)."
              (when robust-flag (setq robust-flag nil))))
           (unless (or (org-element-property :parent up)
                       (eq 'org-data (org-element-type up)))
-            (org-element--cache-warn "Got element without parent. Please 
report it to Org mode mailing list (M-x org-submit-bug-report).\n%S" up))
+            (org-element--cache-warn "Got element without parent. Please 
report it to Org mode mailing list (M-x org-submit-bug-report).\n%S" up)
+            (org-element-cache-reset)
+            (error "org-element--cache: Emergency exit"))
          (setq up (org-element-property :parent up)))
         ;; We're at top level element containing ELEMENT: if it's
         ;; altered by buffer modifications, it is first element in