diff lisp/mouse.el @ 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 f1a383c1b9cd
children f009f3970cd9 95879cc1ed20
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