mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-30 12:21:25 -08:00
Code Issues Projects Releases Wiki Activity

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

Browse source 
(isearch-done): Use remove-hook.
This commit is contained in:
Richard M. Stallman 1996-04-04 16:38:59 +00:00
parent 4b5406e4cb
commit bfe2d334fd
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
lisp/isearch.el
View file

@ -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)