diff options
| author | Richard M. Stallman <rms@gnu.org> | 1994-12-26 05:09:41 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1994-12-26 05:09:41 +0000 |
| commit | 33c448cd1a819ef9a2d83f4c87201615655c2bfe (patch) | |
| tree | b065c32f29832a66165709f8d4c7baee701dda14 /lisp/mouse.el | |
| parent | 6e5cd0ae315d1bc9d1c34c8b4847e7b1c1fa2991 (diff) | |
| download | emacs-33c448cd1a819ef9a2d83f4c87201615655c2bfe.tar.gz | |
(mouse-minibuffer-check, mouse-drag-mode-line)
(mouse-yank-at-click, mouse-yank-secondary, mouse-choose-completion):
Run mouse-leave-buffer-hook.
Diffstat (limited to 'lisp/mouse.el')
| -rw-r--r-- | lisp/mouse.el | 12 |
1 files changed, 11 insertions, 1 deletions
diff --git a/lisp/mouse.el b/lisp/mouse.el index 6ee1cfb0fbc..e73d74dfb42 100644 --- a/lisp/mouse.el +++ b/lisp/mouse.el @@ -100,7 +100,9 @@ (let ((w (posn-window (event-start event)))) (and (window-minibuffer-p w) (not (minibuffer-window-active-p w)) - (error "Minibuffer window is not active")))) + (error "Minibuffer window is not active"))) + ;; Give temporary modes such as isearch a chance to turn off. + (run-hooks 'mouse-leave-buffer-hook)) (defun mouse-delete-window (click) "Delete the window you click on. @@ -173,6 +175,8 @@ This command must be bound to a mouse click." (defun mouse-drag-mode-line (start-event) "Change the height of a window by dragging on the mode line." (interactive "e") + ;; Give temporary modes such as isearch a chance to turn off. + (run-hooks 'mouse-leave-buffer-hook) (let ((done nil) (echo-keystrokes 0) (start-event-frame (window-frame (car (car (cdr start-event))))) @@ -543,6 +547,8 @@ Prefix arguments are interpreted as with \\[yank]. If `mouse-yank-at-point' is non-nil, insert at point regardless of where you click." (interactive "e\nP") + ;; Give temporary modes such as isearch a chance to turn off. + (run-hooks 'mouse-leave-buffer-hook) (or mouse-yank-at-point (mouse-set-point click)) (setq this-command 'yank) (yank arg)) @@ -827,6 +833,8 @@ Move point to the end of the inserted text. If `mouse-yank-at-point' is non-nil, insert at point regardless of where you click." (interactive "e") + ;; Give temporary modes such as isearch a chance to turn off. + (run-hooks 'mouse-leave-buffer-hook) (or mouse-yank-at-point (mouse-set-point click)) (insert (x-get-selection 'SECONDARY))) @@ -1348,6 +1356,8 @@ and selects that window." (defun mouse-choose-completion (event) "Click on an alternative in the `*Completions*' buffer to choose it." (interactive "e") + ;; Give temporary modes such as isearch a chance to turn off. + (run-hooks 'mouse-leave-buffer-hook) (let ((buffer (window-buffer)) choice base-size) |