From f57d50e70dbe961e2e0bfeb2b9bfd8e8a5ffbe88 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Mon, 27 Dec 2004 16:35:17 +0000 Subject: [PATCH] (mouse-drag-region): Bind mouse-autoselect-window. --- lisp/mouse.el | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/lisp/mouse.el b/lisp/mouse.el index 91e2e4ae5c6..63e0f6c9d91 100644 --- 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 -- 2.39.5