changeset 59128:e070d86ca060

(mouse-drag-region): Bind mouse-autoselect-window.
author Richard M. Stallman <rms@gnu.org>
date Mon, 27 Dec 2004 16:35:17 +0000
parents 25e00b2ef82f
children c5ec711f16c8
files lisp/mouse.el
diffstat 1 files changed, 2 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/mouse.el	Mon Dec 27 16:34:43 2004 +0000
+++ b/lisp/mouse.el	Mon Dec 27 16:35:17 2004 +0000
@@ -754,7 +754,8 @@
 
 If the click is in the echo area, display the `*Messages*' buffer."
   (interactive "e")
-  (let ((w (posn-window (event-start start-event))))
+  (let ((w (posn-window (event-start start-event)))
+	(mouse-autoselect-window nil))
     (if (not (or (not (window-minibuffer-p w))
 		 (minibuffer-window-active-p w)))
 	(save-excursion