Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
6e5cd0ae
Commit
6e5cd0ae
authored
Dec 26, 1994
by
Richard M. Stallman
Browse files
(isearch-mode): Set mouse-leave-buffer-hook.
(isearch-done): Clear it.
parent
9290191f
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
4 additions
and
2 deletions
+4
-2
lisp/isearch.el
lisp/isearch.el
+4
-2
No files found.
lisp/isearch.el
View file @
6e5cd0ae
...
...
@@ -4,7 +4,7 @@
;; Author: Daniel LaLiberte <liberte@cs.uiuc.edu>
;; |$Date: 1994/12/1
5
0
2:06:45
$|$Revision: 1.8
0
$
;; |$Date: 1994/12/1
7
0
0:41:34
$|$Revision: 1.8
1
$
;; This file is part of GNU Emacs.
...
...
@@ -507,6 +507,8 @@ 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))
;; isearch-mode can be made modal (in the sense of not returning to
;; the calling function until searching is completed) by entering
;; a recursive-edit and exiting it when done isearching.
...
...
@@ -555,8 +557,8 @@ is treated as a regexp. See \\[isearch-forward] for more info."
isearch-yank-flag nil)
)
(defun isearch-done (&optional nopush edit)
(setq mouse-leave-buffer-hook nil)
;; 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-local-map nil)
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment