Mercurial > emacs
diff lisp/emulation/cua-rect.el @ 64710:0135928f4763
(cua--highlight-rectangle): Only show
rectangle overlay in selected window.
author | Kim F. Storm <storm@cua.dk> |
---|---|
date | Mon, 01 Aug 2005 22:06:42 +0000 |
parents | 34bd8e434dd7 |
children | cbf6461ecbbd edf295560b5a |
line wrap: on
line diff
--- 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)