diff options
| author | Richard M. Stallman <rms@gnu.org> | 1994-12-26 05:09:07 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1994-12-26 05:09:07 +0000 |
| commit | 074406b987bad025b8e18f3728051edf9d7eb073 (patch) | |
| tree | dacf16c40eff24fa560e4de19ad66eb9524f6a0f /lisp/isearch.el | |
| parent | ffb549b0a61992e1859d70721cbdd6e30255a231 (diff) | |
| download | emacs-074406b987bad025b8e18f3728051edf9d7eb073.tar.gz | |
(isearch-mode): Set mouse-leave-buffer-hook.
(isearch-done): Clear it.
Diffstat (limited to 'lisp/isearch.el')
| -rw-r--r-- | lisp/isearch.el | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/lisp/isearch.el b/lisp/isearch.el index c1a92351cb3..03e0ea2fc83 100644 --- a/lisp/isearch.el +++ b/lisp/isearch.el @@ -4,7 +4,7 @@ ;; Author: Daniel LaLiberte <liberte@cs.uiuc.edu> -;; |$Date: 1994/12/15 02:06:45 $|$Revision: 1.80 $ +;; |$Date: 1994/12/17 00:41:34 $|$Revision: 1.81 $ ;; This file is part of GNU Emacs. @@ -507,6 +507,8 @@ is treated as a regexp. See \\[isearch-forward] for more info." (isearch-update) (run-hooks 'isearch-mode-hook) + (setq mouse-leave-buffer-hook '(isearch-done)) + ;; isearch-mode can be made modal (in the sense of not returning to ;; the calling function until searching is completed) by entering ;; a recursive-edit and exiting it when done isearching. @@ -555,8 +557,8 @@ is treated as a regexp. See \\[isearch-forward] for more info." isearch-yank-flag nil) ) - (defun isearch-done (&optional nopush edit) + (setq mouse-leave-buffer-hook nil) ;; Called by all commands that terminate isearch-mode. ;; If NOPUSH is non-nil, we don't push the string on the search ring. (setq overriding-local-map nil) |