Mercurial > emacs
changeset 67143:cbf6461ecbbd
(cua--highlight-rectangle): Preserve
existing face when partially highlighting a TAB in a rectangle.
| author | Kim F. Storm <storm@cua.dk> |
|---|---|
| date | Sat, 26 Nov 2005 23:30:43 +0000 |
| parents | 415da80c14c7 |
| children | 6ec8cb8d967f |
| files | lisp/emulation/cua-rect.el |
| diffstat | 1 files changed, 1 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/emulation/cua-rect.el Sat Nov 26 23:30:30 2005 +0000 +++ b/lisp/emulation/cua-rect.el Sat Nov 26 23:30:43 2005 +0000 @@ -781,7 +781,7 @@ (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