[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals-release/org 461eb2a0ec 1/2: org-fold-core-cycle-over-in
From: |
ELPA Syncer |
Subject: |
[elpa] externals-release/org 461eb2a0ec 1/2: org-fold-core-cycle-over-indirect-buffers: Fix missing indirect capture buffers |
Date: |
Sun, 4 Dec 2022 08:58:01 -0500 (EST) |
branch: externals-release/org
commit 461eb2a0ec8d35a91963c75b326bf5e672cd0b0f
Author: Ihor Radchenko <yantar92@posteo.net>
Commit: Ihor Radchenko <yantar92@posteo.net>
org-fold-core-cycle-over-indirect-buffers: Fix missing indirect capture
buffers
* lisp/org-fold-core.el (org-fold-core-cycle-over-indirect-buffers):
Fix logic detecting foreign `org-fold-core--indirect-buffers'.
`current-buffer' is not always at `car'. Before this change, capture
buffers could be missed when cycling over indirect buffers causing
subtle bugs.
Reported-by: Alexandros Prekates <aprekates@posteo.net>
Link: https://orgmode.org/list/20221128122841.2246aa08@enous
---
lisp/org-fold-core.el | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/lisp/org-fold-core.el b/lisp/org-fold-core.el
index be600f8a0c..6818579039 100644
--- a/lisp/org-fold-core.el
+++ b/lisp/org-fold-core.el
@@ -497,7 +497,7 @@ hanging around."
(declare (debug (form body)) (indent 0))
`(let (buffers dead-properties)
(if (and (not (buffer-base-buffer))
- (not (eq (current-buffer) (car
org-fold-core--indirect-buffers))))
+ (not (memq (current-buffer) org-fold-core--indirect-buffers)))
;; We are in base buffer with `org-fold-core--indirect-buffers' value
from
;; different buffer. This can happen, for example, when
;; org-capture copies local variables into *Capture* buffer.