# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 1104165317 0
# Node ID e070d86ca0605da48c563929722a8323bd7d5423
# Parent  25e00b2ef82f86f82465dcc4f133fa995a7390fd
(mouse-drag-region): Bind mouse-autoselect-window.

diff -r 25e00b2ef82f -r e070d86ca060 lisp/mouse.el
--- 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