From 98faed9f39c86062568c7e6ca87a04f276973303 Mon Sep 17 00:00:00 2001 From: "Kim F. Storm" Date: Sat, 26 Nov 2005 23:30:43 +0000 Subject: [PATCH] (cua--highlight-rectangle): Preserve existing face when partially highlighting a TAB in a rectangle. --- lisp/emulation/cua-rect.el | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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 -- 2.39.5