[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)))))