From fbcaad36b832a6894896dfbc0562bacd3f41c599 Mon Sep 17 00:00:00 2001 From: Dan Nicolaescu Date: Sat, 16 Apr 2005 16:03:29 +0000 Subject: [PATCH] (cua-global-mark-face): Add special case for displays supporting a high number of colors. --- lisp/ChangeLog | 5 +++++ lisp/emulation/cua-base.el | 3 ++- 2 files changed, 7 insertions(+), 1 deletion(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 3d2e37b25d7..354554f546f 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2005-04-16 Dan Nicolaescu + + * emulation/cua-base.el (cua-global-mark-face): Add special case + for displays supporting a high number of colors. + 2005-04-16 Matt Hodges (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 d267afc741d..77e8f636931 100644 --- 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) -- 2.39.2