Mercurial > emacs
changeset 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 | def6a9189d4c |
| children | 5d202bf110c9 |
| files | lisp/emulation/cua-rect.el |
| diffstat | 1 files changed, 1 insertions(+), 0 deletions(-) [+] |
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)