# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 869290463 0
# Node ID 04d56f77da0dbfa85d61814f4116a742c6a7de83
# Parent  43d28a5c7b688c99ee21d10f7898368c0633ba8b
(search-invisible): Fix typo.
(isearch-search): Bind inhibit-point-motion-hooks because we might
have to search inside invisible and intangible text.
(isearch-open-overlay-temporary): Delete forgoten debug message.
(isearch-range-invisible): Fix typo in doc-string.

diff -r 43d28a5c7b68 -r 04d56f77da0d lisp/isearch.el
--- a/lisp/isearch.el	Sat Jul 19 05:22:59 1997 +0000
+++ b/lisp/isearch.el	Sat Jul 19 05:34:23 1997 +0000
@@ -170,7 +170,7 @@
 \(This applies when using `outline.el' and `hideshow.el'.)"
   :type '(choice (const :tag "Match hidden text" t)
 		 (const :tag "Open overlays" open)
-		 (const :tag "Don't match hidden text" t))
+		 (const :tag "Don't match hidden text" nil))
   :group 'isearch)
 
 (defcustom isearch-hide-immediately t
@@ -1434,7 +1434,8 @@
       (setq isearch-case-fold-search
 	    (isearch-no-upper-case-p isearch-string isearch-regexp)))
   (condition-case lossage
-      (let ((inhibit-quit nil)
+      (let ((inhibit-point-motion-hooks search-invisible)
+	    (inhibit-quit nil)
 	    (case-fold-search isearch-case-fold-search)
 	    (retry t))
 	(if isearch-regexp (setq isearch-invalid-regexp nil))
@@ -1490,7 +1491,6 @@
 
 ;;; Called when opening an overlay, and we are still in isearch.
 (defun isearch-open-overlay-temporary (ov)
-  (message "temporary called")
   (if (not (null (overlay-get ov 'isearch-open-invisible-temporary))) 
       ;; Some modes would want to open the overlays temporary during
       ;; isearch in their own way, they should set the
@@ -1568,7 +1568,7 @@
 	  (overlay-put ov 'isearch-intangible nil))))))
 
 (defun isearch-range-invisible (beg end)
-  "Return t if all the bext from BEG to END is invisible."
+  "Return t if all the text from BEG to END is invisible."
   (and (/= beg end)
        ;; Check that invisibility runs up to END.
        (save-excursion