diff options
author | Richard M. Stallman <rms@gnu.org> | 1996-04-04 16:38:59 +0000 |
---|---|---|
committer | Richard M. Stallman <rms@gnu.org> | 1996-04-04 16:38:59 +0000 |
commit | fdb923e8c8da73adf112edb70333f6b141759c1e (patch) | |
tree | 799fa05e40ef7a3846d98238624cbb39cf9c1562 /lisp | |
parent | ac60d50df741890181d583774c0944b20a6bec8d (diff) | |
download | emacs-fdb923e8c8da73adf112edb70333f6b141759c1e.tar.gz |
(isearch-mode): Use add-hook for mouse-leave-buffer-hook.
(isearch-done): Use remove-hook.
Diffstat (limited to 'lisp')
-rw-r--r-- | lisp/isearch.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/isearch.el b/lisp/isearch.el index 2b0783805fe..a98c2125ee0 100644 --- a/lisp/isearch.el +++ b/lisp/isearch.el @@ -475,7 +475,7 @@ 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)) + (add-hook '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 @@ -525,7 +525,7 @@ is treated as a regexp. See \\[isearch-forward] for more info." ) (defun isearch-done (&optional nopush edit) - (setq mouse-leave-buffer-hook nil) + (remove-hook 'mouse-leave-buffer-hook 'isearch-done) ;; 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-terminal-local-map nil) |