From: Kim F. Storm <storm@cua.dk>
Date: Sat, 26 Nov 2005 23:30:43 +0000 (+0000)
Subject: (cua--highlight-rectangle): Preserve
X-Git-Tag: emacs-pretest-22.0.90~5659
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=98faed9f39c86062568c7e6ca87a04f276973303;p=emacs.git

(cua--highlight-rectangle): Preserve
existing face when partially highlighting a TAB in a rectangle.
---

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