Mercurial > emacs

diff lisp/emulation/cua-base.el @ 61587:15ece4eaca8d

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(cua-global-mark-face): Add special case for displays supporting a high number of colors.
author Dan Nicolaescu <dann@ics.uci.edu>
date Sat, 16 Apr 2005 16:03:29 +0000
parents a82b5511d943
children 38e5ee03d4a9
line wrap: on
line diff
--- a/lisp/emulation/cua-base.el	Sat Apr 16 15:28:10 2005 +0000
+++ b/lisp/emulation/cua-base.el	Sat Apr 16 16:03:29 2005 +0000
@@ -405,7 +405,8 @@
   :group 'cua)
 
 (defface cua-global-mark-face
-  '((((class color)) :foreground "black" :background "yellow")
+  '((((min-colors 88)(class color)) :foreground "black" :background "yellow1")
+    (((class color)) :foreground "black" :background "yellow")
     (t :bold t))
   "*Font used by CUA for highlighting the global mark."
   :group 'cua)