diff options
| -rw-r--r-- | lisp/emulation/cua-base.el | 15 |
1 files changed, 9 insertions, 6 deletions
diff --git a/lisp/emulation/cua-base.el b/lisp/emulation/cua-base.el index 8852999db2d..d267afc741d 100644 --- a/lisp/emulation/cua-base.el +++ b/lisp/emulation/cua-base.el @@ -384,11 +384,15 @@ and after the region marked by the rectangle to search." :type 'boolean :group 'cua) -(defface cua-rectangle-face 'nil +(defface cua-rectangle-face + '((default :inherit region) + (((class color)) :foreground "white" :background "maroon")) "*Font used by CUA for highlighting the rectangle." :group 'cua) -(defface cua-rectangle-noselect-face 'nil +(defface cua-rectangle-noselect-face + '((default :inherit region) + (((class color)) :foreground "white" :background "dimgray")) "*Font used by CUA for highlighting the non-selected rectangle lines." :group 'cua) @@ -400,10 +404,9 @@ and after the region marked by the rectangle to search." :type 'boolean :group 'cua) -(defface cua-global-mark-face '((((class color)) - :foreground "black" - :background "yellow") - (t :bold t)) +(defface cua-global-mark-face + '((((class color)) :foreground "black" :background "yellow") + (t :bold t)) "*Font used by CUA for highlighting the global mark." :group 'cua) |