Mercurial > emacs
changeset 18866:04d56f77da0d
(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.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Sat, 19 Jul 1997 05:34:23 +0000 |
| parents | 43d28a5c7b68 |
| children | b6e4c4c2a3ef |
| files | lisp/isearch.el |
| diffstat | 1 files changed, 4 insertions(+), 4 deletions(-) [+] |
line wrap: on
line diff
--- 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