diff options
| author | Kim F. Storm <storm@cua.dk> | 2005-06-06 13:19:15 +0000 |
|---|---|---|
| committer | Kim F. Storm <storm@cua.dk> | 2005-06-06 13:19:15 +0000 |
| commit | 1e98d199cc4865bd1a508214f5d15007f85b254f (patch) | |
| tree | 3068d3e3bdd375d690d2570be95fb539b35f17a4 /lisp/emulation/cua-base.el | |
| parent | c7b96d765214ce3b7176f513fc7fe4f8485945d7 (diff) | |
| download | emacs-1e98d199cc4865bd1a508214f5d15007f85b254f.tar.gz emacs-1e98d199cc4865bd1a508214f5d15007f85b254f.tar.bz2 emacs-1e98d199cc4865bd1a508214f5d15007f85b254f.zip | |
* 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.
Diffstat (limited to 'lisp/emulation/cua-base.el')
| -rw-r--r-- | lisp/emulation/cua-base.el | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/lisp/emulation/cua-base.el b/lisp/emulation/cua-base.el index 6ea6bfb7f3d..fe2b0a892a8 100644 --- a/lisp/emulation/cua-base.el +++ b/lisp/emulation/cua-base.el @@ -384,13 +384,13 @@ and after the region marked by the rectangle to search." :type 'boolean :group 'cua) -(defface cua-rectangle-face +(defface cua-rectangle '((default :inherit region) (((class color)) :foreground "white" :background "maroon")) "*Font used by CUA for highlighting the rectangle." :group 'cua) -(defface cua-rectangle-noselect-face +(defface cua-rectangle-noselect '((default :inherit region) (((class color)) :foreground "white" :background "dimgray")) "*Font used by CUA for highlighting the non-selected rectangle lines." @@ -404,7 +404,7 @@ and after the region marked by the rectangle to search." :type 'boolean :group 'cua) -(defface cua-global-mark-face +(defface cua-global-mark '((((min-colors 88)(class color)) :foreground "black" :background "yellow1") (((class color)) :foreground "black" :background "yellow") (t :bold t)) |