# HG changeset patch
# User Dan Nicolaescu <dann@ics.uci.edu>
# Date 1113667409 0
# Node ID 15ece4eaca8d5047c1c83daf2c1c62324dda6f4b
# Parent  32cca11a66f80f4db0bfb300291824cd41f5be78
(cua-global-mark-face): Add special case
for displays supporting a high number of colors.

diff -r 32cca11a66f8 -r 15ece4eaca8d lisp/ChangeLog
--- a/lisp/ChangeLog	Sat Apr 16 15:28:10 2005 +0000
+++ b/lisp/ChangeLog	Sat Apr 16 16:03:29 2005 +0000
@@ -1,3 +1,8 @@
+2005-04-16  Dan Nicolaescu  <dann@ics.uci.edu>
+
+	* emulation/cua-base.el (cua-global-mark-face): Add special case
+	for displays supporting a high number of colors.
+
 2005-04-16  Matt Hodges  <MPHodges@member.fsf.org>  (tiny change)
 
 	* repeat.el (repeat): Invoke pre-command-hook and
diff -r 32cca11a66f8 -r 15ece4eaca8d lisp/emulation/cua-base.el
--- 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)