mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-01 11:14:55 +00:00
Code Issues Releases Activity

(cua--highlight-rectangle): Preserve

Browse Source 
existing face when partially highlighting a TAB in a rectangle.
This commit is contained in:
Kim F. Storm 2005-11-26 23:30:43 +00:00
parent b14935df20
commit 98faed9f39
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lisp/emulation/cua-rect.el
View File

@ -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