emacs-elpa-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[elpa] externals/org e83d4e94d8 1/2: fixup! org-fold-core: Fix folding f


From: ELPA Syncer
Subject: [elpa] externals/org e83d4e94d8 1/2: fixup! org-fold-core: Fix folding for `isearch-filter-prediacate' outside isearch
Date: Sat, 3 Jun 2023 06:59:05 -0400 (EDT)

branch: externals/org
commit e83d4e94d873ba0c983d233dced8d5880dc519b9
Author: Ihor Radchenko <yantar92@posteo.net>
Commit: Ihor Radchenko <yantar92@posteo.net>

    fixup! org-fold-core: Fix folding for `isearch-filter-prediacate' outside 
isearch
    
    * lisp/org-fold-core.el (org-fold-core--isearch-show-temporary): Fix
    edge case when `org-fold-core--isearch-local-regions' contains empty
    region.
---
 lisp/org-fold-core.el | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/lisp/org-fold-core.el b/lisp/org-fold-core.el
index d58cbc6490..6d45237c94 100644
--- a/lisp/org-fold-core.el
+++ b/lisp/org-fold-core.el
@@ -1197,8 +1197,9 @@ REGION can also be an overlay in current buffer."
                    (org-fold-core--isearch-show region))
                  (setq pos (org-fold-core-next-folding-state-change nil pos 
(cdr region)))))))
         (mapc (lambda (val)
-                (org-fold-core--keep-overlays
-                 (org-fold-core-region (cadr val) (cddr val) t (car val))))
+                (when (cdr val) ;; non-empty region
+                  (org-fold-core--keep-overlays
+                   (org-fold-core-region (cadr val) (cddr val) t (car val)))))
               (gethash region org-fold-core--isearch-local-regions))
         (remhash region org-fold-core--isearch-local-regions)))))
 



reply via email to

[Prev in Thread] Current Thread [Next in Thread]