[elpa] externals/org 93821b431c 3/7: org-element--cache-for-removal: Improve performance

[ELPA Syncer]

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

    org-element--cache-for-removal: Improve performance
    
    * lisp/org-element.el (org-element--cache-for-removal): Directly check
    for headline at point instead of running full
    `org-element--current-element' that is matching a large number of
    regexps.
---
 lisp/org-element.el | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/lisp/org-element.el b/lisp/org-element.el
index 065b2a99ad..cbd0dd3d57 100644
--- a/lisp/org-element.el
+++ b/lisp/org-element.el
@@ -6909,7 +6909,8 @@ known element in cache (it may start after END)."
                           (not (> end (org-element-property :end up)))
                           (let ((current (org-with-point-at 
(org-element-property :begin up)
                                            (org-element-with-disabled-cache
-                                             (org-element--current-element 
(point-max))))))
+                                             (and (looking-at-p 
org-element-headline-re)
+                                                  (org-element-headline-parser 
nil t))))))
                             (when (eq 'headline (org-element-type current))
                               (org-element--cache-log-message
                                "Found non-robust headline that can be updated 
individually: %S"