From bfe2d334fda27fa3ca2620aa944fd4bbd7a92cde Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Thu, 4 Apr 1996 16:38:59 +0000 Subject: [PATCH] (isearch-mode): Use add-hook for mouse-leave-buffer-hook. (isearch-done): Use remove-hook. --- lisp/isearch.el | 4 ++-- 1 file 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) -- 2.39.2