From 4d4d59874c723cfe86ba2ae8485406e82d168a8b Mon Sep 17 00:00:00 2001 From: Ihor Radchenko Date: Mon, 10 Jun 2024 11:13:58 +0200 Subject: [PATCH] Fix indirect buffer tracking * lisp/org-fold-core.el (org-fold-core-decouple-indirect-buffer-folds): Actually, add newly created indirect buffer to the tracked list. --- lisp/org-fold-core.el | 15 ++++++++------- 1 file changed, 8 insertions(+), 7 deletions(-) diff --git a/lisp/org-fold-core.el b/lisp/org-fold-core.el index 664846a61..8372b86b0 100644 --- a/lisp/org-fold-core.el +++ b/lisp/org-fold-core.el @@ -641,13 +641,14 @@ This function is mostly intended to be used in `clone-indirect-buffer-hook'." ;; Add current buffer to the list of indirect buffers in the base buffer. (when (buffer-base-buffer) - (with-current-buffer (buffer-base-buffer) - (setq-local org-fold-core--indirect-buffers - (let (bufs) - (org-fold-core-cycle-over-indirect-buffers - (push (current-buffer) bufs)) - (push (current-buffer) bufs) - (delete-dups bufs))))) + (let ((new-buffer (current-buffer))) + (with-current-buffer (buffer-base-buffer) + (setq-local org-fold-core--indirect-buffers + (let (bufs) + (org-fold-core-cycle-over-indirect-buffers + (push (current-buffer) bufs)) + (push new-buffer bufs) + (delete-dups bufs)))))) (when (and (buffer-base-buffer) (eq org-fold-core-style 'text-properties) (not (memql 'ignore-indirect org-fold-core--optimise-for-huge-buffers)))