branch: externals/org
commit 5d05f5911a9078e8c77851c40dc6a77d2a4c3955
Author: Ihor Radchenko <yanta...@gmail.com>
Commit: Ihor Radchenko <yanta...@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))
