# HG changeset patch
# User Kim F. Storm <storm@cua.dk>
# Date 1122934002 0
# Node ID 0135928f4763f760b80921e531f5b5aa017ca667
# Parent  def6a9189d4cdaf9621305a8e76122ea2578b825
(cua--highlight-rectangle): Only show
rectangle overlay in selected window.

diff -r def6a9189d4c -r 0135928f4763 lisp/emulation/cua-rect.el
--- a/lisp/emulation/cua-rect.el	Mon Aug 01 22:06:25 2005 +0000
+++ b/lisp/emulation/cua-rect.el	Mon Aug 01 22:06:42 2005 +0000
@@ -833,6 +833,7 @@
 	     (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)