Mercurial > emacs

changeset 44474:c3654e3e894b

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(mouse-drag-region-1): Display region highlight only in the selected window.
author Richard M. Stallman <rms@gnu.org>
date Wed, 10 Apr 2002 15:04:19 +0000
parents b64869712ee0
children 9cab12e7e72a
files lisp/mouse.el
diffstat 1 files changed, 2 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/mouse.el	Wed Apr 10 14:55:19 2002 +0000
+++ b/lisp/mouse.el	Wed Apr 10 15:04:19 2002 +0000
@@ -739,7 +739,8 @@
     (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