# HG changeset patch
# User Kim F. Storm <storm@cua.dk>
# Date 1133047843 0
# Node ID cbf6461ecbbd87267c402443c88498d5eea361ec
# Parent  415da80c14c747dae9a3bb19c068c8da3cf9c8d5
(cua--highlight-rectangle): Preserve
existing face when partially highlighting a TAB in a rectangle.

diff -r 415da80c14c7 -r cbf6461ecbbd lisp/emulation/cua-rect.el
--- 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