[elpa] externals/org 5d05f5911a: org-element-cache: Allow detecting changes from indirect non-Org buffers

[ELPA Syncer]

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

    org-element-cache: Allow detecting changes from indirect non-Org buffers
    
    * lisp/org-element.el (org-element--cache-before-change):
    (org-element--cache-after-change): Do not prevent trigerring if the
    current indirect buffer is not in Org mode, but its base buffer is in
    Org mode.
---
 lisp/org-element.el | 12 ++++++------
 1 file changed, 6 insertions(+), 6 deletions(-)

diff --git a/lisp/org-element.el b/lisp/org-element.el
index b99b68fe76..51204e8137 100644
--- a/lisp/org-element.el
+++ b/lisp/org-element.el
@@ -6571,9 +6571,9 @@ BEG and END are the beginning and end of the range of 
changed
 text.  See `before-change-functions' for more information.
 
 The function returns the new value of `org-element--cache-change-warning'."
-  (when (org-element--cache-active-p t)
-    (with-current-buffer (or (buffer-base-buffer (current-buffer))
-                             (current-buffer))
+  (with-current-buffer (or (buffer-base-buffer (current-buffer))
+                           (current-buffer))
+    (when (org-element--cache-active-p t)
       (org-with-wide-buffer
        (setq org-element--cache-change-tic (buffer-chars-modified-tick))
        (goto-char beg)
@@ -6647,9 +6647,9 @@ The function returns the new value of 
`org-element--cache-change-warning'."
 BEG and END are the beginning and end of the range of changed
 text, and the length in bytes of the pre-change text replaced by
 that range.  See `after-change-functions' for more information."
-  (when (org-element--cache-active-p t)
-    (with-current-buffer (or (buffer-base-buffer (current-buffer))
-                             (current-buffer))
+  (with-current-buffer (or (buffer-base-buffer (current-buffer))
+                           (current-buffer))
+    (when (org-element--cache-active-p t)
       (when (not (eq org-element--cache-change-tic 
(buffer-chars-modified-tick)))
         (org-element--cache-log-message "After change")
         (setq org-element--cache-change-warning 
(org-element--cache-before-change beg end))