From: Richard M. Stallman <rms@gnu.org>
Date: Thu, 4 Apr 1996 16:38:59 +0000 (+0000)
Subject: (isearch-mode): Use add-hook for mouse-leave-buffer-hook.
X-Git-Tag: emacs-19.34~921
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=bfe2d334fda27fa3ca2620aa944fd4bbd7a92cde;p=emacs.git

(isearch-mode): Use add-hook for mouse-leave-buffer-hook.
(isearch-done): Use remove-hook.
---

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)