Mercurial > emacs
diff lisp/emulation/cua-rect.el @ 63073:f1bf3660220e
* emulation/cua-base.el (cua-rectangle, cua-rectangle-noselect)
(cua-global-mark): Remove -face suffix from face names.
* emulation/cua-gmrk.el (cua--init-global-mark): Remove
cua-global-mark face setup.
author | Kim F. Storm <storm@cua.dk> |
---|---|
date | Mon, 06 Jun 2005 13:19:15 +0000 |
parents | 91452a2f828e |
children | ffc4b2e19212 173dee4e2611 |
line wrap: on
line diff
--- a/lisp/emulation/cua-rect.el Mon Jun 06 13:18:36 2005 +0000 +++ b/lisp/emulation/cua-rect.el Mon Jun 06 13:19:15 2005 +0000 @@ -755,7 +755,7 @@ (sit-for 0) ; make window top/bottom reliable (cua--rectangle-operation nil t nil nil nil ; do not tabify '(lambda (s e l r v) - (let ((rface (if v 'cua-rectangle-face 'cua-rectangle-noselect-face)) + (let ((rface (if v 'cua-rectangle 'cua-rectangle-noselect)) overlay bs ms as) (when (cua--rectangle-virtual-edges) (let ((lb (line-beginning-position))