From: Richard M. Stallman <rms@gnu.org>
Date: Wed, 10 Apr 2002 15:04:19 +0000 (+0000)
Subject: (mouse-drag-region-1): Display region highlight only in the selected window.
X-Git-Tag: ttn-vms-21-2-B4~15715
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=2d246c716210704f126c26c711d2b338d78d345d;p=emacs.git

(mouse-drag-region-1): Display region highlight only in the selected window.
---

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