From 2d246c716210704f126c26c711d2b338d78d345d Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Wed, 10 Apr 2002 15:04:19 +0000 Subject: [PATCH] (mouse-drag-region-1): Display region highlight only in the selected window. --- lisp/mouse.el | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/lisp/mouse.el b/lisp/mouse.el index f91707f1eea..01f4479465f 100644 --- a/lisp/mouse.el +++ b/lisp/mouse.el @@ -739,7 +739,8 @@ If the click is in the echo area, display the `*Messages*' buffer." (setq start-point (point)) (let ((range (mouse-start-end start-point start-point click-count))) (move-overlay mouse-drag-overlay (car range) (nth 1 range) - (window-buffer start-window))) + (window-buffer start-window)) + (overlay-put mouse-drag-overlay 'window (selected-window))) (deactivate-mark) ;; end-of-range is used only in the single-click case. ;; It is the place where the drag has reached so far -- 2.39.2