mirror of
https://git.savannah.gnu.org/git/emacs/org-mode.git
synced 2024-07-16 16:16:29 +00:00
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:
parent
dbb451dc9d
commit
e83d4e94d8
|
@ -1197,8 +1197,9 @@ REGION can also be an overlay in current buffer."
|
||||||
(org-fold-core--isearch-show region))
|
(org-fold-core--isearch-show region))
|
||||||
(setq pos (org-fold-core-next-folding-state-change nil pos (cdr region)))))))
|
(setq pos (org-fold-core-next-folding-state-change nil pos (cdr region)))))))
|
||||||
(mapc (lambda (val)
|
(mapc (lambda (val)
|
||||||
(org-fold-core--keep-overlays
|
(when (cdr val) ;; non-empty region
|
||||||
(org-fold-core-region (cadr val) (cddr val) t (car val))))
|
(org-fold-core--keep-overlays
|
||||||
|
(org-fold-core-region (cadr val) (cddr val) t (car val)))))
|
||||||
(gethash region org-fold-core--isearch-local-regions))
|
(gethash region org-fold-core--isearch-local-regions))
|
||||||
(remhash region org-fold-core--isearch-local-regions)))))
|
(remhash region org-fold-core--isearch-local-regions)))))
|
||||||
|
|
||||||
|
|
Loading…
Reference in a new issue