From 6cd7c6fb1cf6363f1057086760bed9875cdd97c7 Mon Sep 17 00:00:00 2001 From: Ihor Radchenko Date: Sun, 14 Aug 2022 08:38:55 +0800 Subject: [PATCH] org-fold-core: Improve integration with isearch API * lisp/org-fold-core.el (org-fold-core--isearch-show): (org-fold-core--isearch-show-temporary): Allow REGION argument to be overlay. Fixes https://orgmode.org/list/62f834ed.050a0220.afd79.0022SMTPIN_ADDED_BROKEN@mx.google.com --- lisp/org-fold-core.el | 12 ++++++++++-- 1 file changed, 10 insertions(+), 2 deletions(-) diff --git a/lisp/org-fold-core.el b/lisp/org-fold-core.el index 93cbdb9fb..da465fe1d 100644 --- a/lisp/org-fold-core.el +++ b/lisp/org-fold-core.el @@ -1150,7 +1150,11 @@ This function is intended to be used as `isearch-filter-predicate'." (clrhash org-fold-core--isearch-local-regions)) (defun org-fold-core--isearch-show (region) - "Reveal text in REGION found by isearch." + "Reveal text in REGION found by isearch. +REGION can also be an overlay in current buffer." + (when (overlayp region) + (setq region (cons (overlay-start region) + (overlay-end region)))) (org-with-point-at (car region) (while (< (point) (cdr region)) (funcall org-fold-core-isearch-open-function (car region)) @@ -1158,7 +1162,11 @@ This function is intended to be used as `isearch-filter-predicate'." (defun org-fold-core--isearch-show-temporary (region hide-p) "Temporarily reveal text in REGION. -Hide text instead if HIDE-P is non-nil." +Hide text instead if HIDE-P is non-nil. +REGION can also be an overlay in current buffer." + (when (overlayp region) + (setq region (cons (overlay-start region) + (overlay-end region)))) (if (not hide-p) (let ((pos (car region))) (while (< pos (cdr region))