(mouse-drag-region): Bind mouse-autoselect-window.

diff --git a/lisp/mouse.el b/lisp/mouse.el
index 91e2e4ae5c6a2faed16c2dce67afe8f52073ddce..63e0f6c9d913dd1c6d9c62edefec3a8332b2dba2 100644 (file)
--- a/lisp/mouse.el
+++ b/lisp/mouse.el
@@ -754,7 +754,8 @@ remains active.  Otherwise, it remains until the next input event.
 
 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