diff options
| author | Richard M. Stallman <[email protected]> | 1996-04-04 16:38:59 +0000 |
|---|---|---|
| committer | Richard M. Stallman <[email protected]> | 1996-04-04 16:38:59 +0000 |
| commit | bfe2d334fda27fa3ca2620aa944fd4bbd7a92cde (patch) | |
| tree | 3afe0ecb37795a50de4bbd9db72742fb6e43aeb1 | |
| parent | 4b5406e4cbcd86ce732bb3277b3e29fd6fe13851 (diff) | |
(isearch-mode): Use add-hook for mouse-leave-buffer-hook.
(isearch-done): Use remove-hook.
| -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 2b0783805f..a98c2125ee 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) |