Improve invisibility handling in isearch-lazy-highlight (bug#40808)

* lisp/isearch.el (isearch-lazy-highlight-invisible): New variable.
(isearch-lazy-highlight-new-loop, isearch-lazy-highlight-search)
(isearch-lazy-highlight-match, isearch-lazy-highlight-buffer-update): Use it.

* lisp/replace.el (replace-highlight): Let-bind isearch-invisible
to search-invisible.

* test/lisp/isearch-tests.el (isearch--test-invisible): New test.

2 files changed, 14 insertions, 5 deletions

diff --git a/lisp/isearch.el b/lisp/isearch.el
index 4d231fba469..4672440bdff 100644
--- a/lisp/isearch.el
+++ b/lisp/isearch.el
@@ -4054,6 +4054,7 @@ since they have special meaning in a regexp."
 (defvar isearch-lazy-highlight-point-max nil)
 (defvar isearch-lazy-highlight-buffer nil)
 (defvar isearch-lazy-highlight-case-fold-search nil)
+(defvar isearch-lazy-highlight-invisible nil)
 (defvar isearch-lazy-highlight-regexp nil)
 (defvar isearch-lazy-highlight-lax-whitespace nil)
 (defvar isearch-lazy-highlight-regexp-lax-whitespace nil)
@@ -4099,6 +4100,8 @@ by other Emacs features."
                             isearch-lazy-highlight-window-group))
                  (not (eq isearch-lazy-highlight-case-fold-search
                           isearch-case-fold-search))
+                 (not (eq isearch-lazy-highlight-invisible
+                          isearch-invisible))
                  (not (eq isearch-lazy-highlight-regexp
                           isearch-regexp))
                  (not (eq isearch-lazy-highlight-regexp-function
@@ -4177,6 +4180,7 @@ by other Emacs features."
           isearch-lazy-highlight-wrapped      nil
           isearch-lazy-highlight-last-string  isearch-string
           isearch-lazy-highlight-case-fold-search isearch-case-fold-search
+          isearch-lazy-highlight-invisible isearch-invisible
           isearch-lazy-highlight-regexp       isearch-regexp
           isearch-lazy-highlight-lax-whitespace   isearch-lax-whitespace
           isearch-lazy-highlight-regexp-lax-whitespace isearch-regexp-lax-whitespace
@@ -4226,8 +4230,10 @@ Attempt to do the search exactly the way the pending Isearch would."
             (isearch-forward isearch-lazy-highlight-forward)
             ;; Count all invisible matches, but highlight only
             ;; matches that can be opened by visiting them later
-            (search-invisible (or (not (null isearch-lazy-count))
-                                  'can-be-opened))
+            (search-invisible
+             (or (not (null isearch-lazy-count))
+                 (and (eq isearch-lazy-highlight-invisible 'open)
+                      'can-be-opened)))
             (retry t)
             (success nil))
         ;; Use a loop like in `isearch-search'.
@@ -4247,7 +4253,9 @@ Attempt to do the search exactly the way the pending Isearch would."
   (when (or (not isearch-lazy-count)
             ;; Recheck the match that possibly was intended
             ;; for counting only, but not for highlighting
-            (let ((search-invisible 'can-be-opened))
+            (let ((search-invisible
+                   (and (eq isearch-lazy-highlight-invisible 'open)
+                        'can-be-opened)))
               (funcall isearch-filter-predicate mb me)))
     (let ((ov (make-overlay mb me)))
       (push ov isearch-lazy-highlight-overlays)
@@ -4396,9 +4404,9 @@ Attempt to do the search exactly the way the pending Isearch would."
                           ;; value `open' since then lazy-highlight
                           ;; will open all overlays with matches.
                           (if (not (let ((search-invisible
-                                          (if (eq search-invisible 'open)
+                                          (if (eq isearch-lazy-highlight-invisible 'open)
                                               'can-be-opened
-                                            search-invisible)))
+                                            isearch-lazy-highlight-invisible)))
                                      (funcall isearch-filter-predicate mb me)))
                               (setq isearch-lazy-count-invisible
                                     (1+ (or isearch-lazy-count-invisible 0)))
diff --git a/lisp/replace.el b/lisp/replace.el
index ac677db2feb..ff7ca1145b8 100644
--- a/lisp/replace.el
+++ b/lisp/replace.el
@@ -2755,6 +2755,7 @@ to a regexp that is actually used for the search.")
             (isearch-regexp-lax-whitespace
              replace-regexp-lax-whitespace)
             (isearch-case-fold-search case-fold)
+            (isearch-invisible search-invisible)
             (isearch-forward (not backward))
             (isearch-other-end match-beg)
             (isearch-error nil)