From: Kim F. Storm <storm@cua.dk>
Date: Mon, 1 Aug 2005 22:06:42 +0000 (+0000)
Subject: (cua--highlight-rectangle): Only show
X-Git-Tag: emacs-pretest-22.0.90~7812
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=f28564957e495d953e729987bfdd96dc1c709646;p=emacs.git

(cua--highlight-rectangle): Only show
rectangle overlay in selected window.
---

diff --git a/lisp/emulation/cua-rect.el b/lisp/emulation/cua-rect.el
index baa61fcb395..d83ebd543cd 100644
--- a/lisp/emulation/cua-rect.el
+++ b/lisp/emulation/cua-rect.el
@@ -833,6 +833,7 @@ If command is repeated at same position, delete the rectangle."
 	     (overlay-put overlay 'after-string as)
 	     (overlay-put overlay 'face rface)
 	     (overlay-put overlay 'keymap cua--overlay-keymap)
+	     (overlay-put overlay 'window (selected-window))
 	     (setq new (cons overlay new))))))
     ;; Trim old trailing overlays.
     (mapcar (function delete-overlay) old)