Fix up coding system.

[bpt/emacs.git] / lisp / isearch.el

diff --git a/lisp/isearch.el b/lisp/isearch.el
index 9e0c310..7053e63 100644 (file)
--- a/lisp/isearch.el
+++ b/lisp/isearch.el
@@ -170,15 +170,15 @@ an overlay having an `invisible' property and that overlay has a property
 \(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
-  "If t hide the previous match if needed.  
-This has efect iff `search-invisible' is set to `open' and it means
-that if the current match is out of one of the previously shown
-regions hide is right away, as opposed to hiding it at the end of
-isearch."  
+  "If non-nil, re-hide an invisible match right away.
+This variable makes a difference when `search-invisible' is set to `open'.
+It means that after search makes some invisible text visible
+to show the match, it makes the text invisible again when the match moves.
+Ordinarily the text becomes invisible again at the end of the search."  
   :type 'boolean 
   :group 'isearch)
 
@@ -1434,7 +1434,8 @@ If there is no completion possible, say so and continue searching."
       (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 @@ If there is no completion possible, say so and continue searching."
 
 ;;; 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 @@ If there is no completion possible, say so and continue searching."
          (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