(cua-global-mark-face): Add special case

for displays supporting a high number of colors.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 3d2e37b25d7a89ee436b5bcfa0ad4465a6f101ee..354554f546fd3d60d77ad1342a4d55fb1489f29f 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -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 --git a/lisp/emulation/cua-base.el b/lisp/emulation/cua-base.el
index d267afc741dc54a539803d01947114241b727400..77e8f6369316d744156aa198b52ee9ae2680d30d 100644 (file)
--- a/lisp/emulation/cua-base.el
+++ b/lisp/emulation/cua-base.el
@@ -405,7 +405,8 @@ and after the region marked by the rectangle to search."
   :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)