(cua-rectangle-face)

(cua-rectangle-noselect-face): Define face attributes here.

diff --git a/lisp/emulation/cua-base.el b/lisp/emulation/cua-base.el
index 8852999db2dacd8cd2d47489e431fbd3c3de830b..d267afc741dc54a539803d01947114241b727400 100644 (file)
--- 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)