diff options
| author | Kim F. Storm <storm@cua.dk> | 2005-11-26 23:30:43 +0000 |
|---|---|---|
| committer | Kim F. Storm <storm@cua.dk> | 2005-11-26 23:30:43 +0000 |
| commit | 98faed9f39c86062568c7e6ca87a04f276973303 (patch) | |
| tree | 058a4ec9efb50c382e4f323562db3e9d28d4308c /lisp | |
| parent | b14935df20f5df5d04a559c112f05938446008b8 (diff) | |
| download | emacs-98faed9f39c86062568c7e6ca87a04f276973303.tar.gz | |
(cua--highlight-rectangle): Preserve
existing face when partially highlighting a TAB in a rectangle.
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/emulation/cua-rect.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/emulation/cua-rect.el b/lisp/emulation/cua-rect.el index d83ebd543cd..35132e60e8d 100644 --- a/lisp/emulation/cua-rect.el +++ b/lisp/emulation/cua-rect.el @@ -781,7 +781,7 @@ If command is repeated at same position, delete the rectangle." (make-string (- l cl0 (if (and (= le pl) (/= le lb)) 1 0)) (if cua--virtual-edges-debug ?. ?\s)) - 'face 'default)) + 'face (or (get-text-property (1- s) 'face) 'default))) (if (/= pl le) (setq s (1- s)))) (cond |