Mercurial > emacs

changeset 61509:a82b5511d943

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(cua-rectangle-face) (cua-rectangle-noselect-face): Define face attributes here.
author Kim F. Storm <storm@cua.dk>
date Tue, 12 Apr 2005 20:39:35 +0000
parents 51193e7d71d0
children 1a65ed49d918
files lisp/emulation/cua-base.el
diffstat 1 files changed, 9 insertions(+), 6 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/emulation/cua-base.el	Tue Apr 12 20:39:08 2005 +0000
+++ b/lisp/emulation/cua-base.el	Tue Apr 12 20:39:35 2005 +0000
@@ -384,11 +384,15 @@
   :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 @@
   :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)