From 03622614060e973edee90606d41c6c2dfc670538 Mon Sep 17 00:00:00 2001 From: "Kim F. Storm" Date: Tue, 12 Apr 2005 20:39:35 +0000 Subject: [PATCH] (cua-rectangle-face) (cua-rectangle-noselect-face): Define face attributes here. --- lisp/emulation/cua-base.el | 15 +++++++++------ 1 file 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) -- 2.39.2