tec/org-mode
tec
/
org-mode
forked from mirrors/org-mode
1
0
Fork 0
Code Pull Requests Releases Activity

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.
This commit is contained in:
Ihor Radchenko 2023-06-03 11:09:35 +03:00
parent dbb451dc9d
commit e83d4e94d8
No known key found for this signature in database
GPG Key ID: 6470762A7DA11D8B
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lisp/org-fold-core.el
View File

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