Mercurial > emacs
changeset 14939:c0e8ab5d23fc
(isearch-mode): Use add-hook for mouse-leave-buffer-hook.
(isearch-done): Use remove-hook.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Thu, 04 Apr 1996 16:38:59 +0000 |
| parents | e4f4dc22f5a3 |
| children | 9dceb7afbb68 |
| files | lisp/isearch.el |
| diffstat | 1 files changed, 2 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/isearch.el Thu Apr 04 16:35:55 1996 +0000 +++ b/lisp/isearch.el Thu Apr 04 16:38:59 1996 +0000 @@ -475,7 +475,7 @@ (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 @@ ) (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)