diff options
| author | Kim F. Storm | 2005-08-01 22:06:42 +0000 |
|---|---|---|
| committer | Kim F. Storm | 2005-08-01 22:06:42 +0000 |
| commit | f28564957e495d953e729987bfdd96dc1c709646 (patch) | |
| tree | ea9767392b473c8c18e162270eaf132cd201680b | |
| parent | f8a9926b35b2c3e59fb69f67c3fd4fb2954dc451 (diff) | |
| download | emacs-f28564957e495d953e729987bfdd96dc1c709646.tar.gz emacs-f28564957e495d953e729987bfdd96dc1c709646.zip | |
(cua--highlight-rectangle): Only show
rectangle overlay in selected window.
| -rw-r--r-- | lisp/emulation/cua-rect.el | 1 |
1 files changed, 1 insertions, 0 deletions
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." | |||
| 833 | (overlay-put overlay 'after-string as) | 833 | (overlay-put overlay 'after-string as) |
| 834 | (overlay-put overlay 'face rface) | 834 | (overlay-put overlay 'face rface) |
| 835 | (overlay-put overlay 'keymap cua--overlay-keymap) | 835 | (overlay-put overlay 'keymap cua--overlay-keymap) |
| 836 | (overlay-put overlay 'window (selected-window)) | ||
| 836 | (setq new (cons overlay new)))))) | 837 | (setq new (cons overlay new)))))) |
| 837 | ;; Trim old trailing overlays. | 838 | ;; Trim old trailing overlays. |
| 838 | (mapcar (function delete-overlay) old) | 839 | (mapcar (function delete-overlay) old) |