(isearch-range-invisible): Handle the case that

buffer-invisibility-spec is t (i.e. not a list).

(isearch-range-invisible): Handle the case that
buffer-invisibility-spec is t (i.e. not a list).
de207f5a · Kenichi Handa · 7678db25 · de207f5a
Commit de207f5a authored Jun 20, 1998 by Kenichi Handa
Hide whitespace changes
Inline Side-by-side

Showing with 4 additions and 2 deletions

lisp/isearch.el lisp/isearch.el +4 -2

No files found.
--- a/lisp/isearch.el
+++ b/lisp/isearch.el
@@ -1619,8 +1619,10 @@ If there is no completion possible, say so and continue searching."
 		   (while overlays
 		     (setq o (car overlays)
 			   invis-prop (overlay-get o 'invisible))
-		     (if (or (memq invis-prop buffer-invisibility-spec)
-			     (assq invis-prop buffer-invisibility-spec))
+		     (if (if (eq buffer-invisibility-spec t)
+			     invis-prop
+			   (or (memq invis-prop buffer-invisibility-spec)
+			       (assq invis-prop buffer-invisibility-spec)))
 			 (if (overlay-get o 'isearch-open-invisible)
 			     (setq ov-list (cons o ov-list))
 			   ;; We found one overlay that cannot be