From: Dan Nicolaescu Date: Sat, 16 Apr 2005 16:03:29 +0000 (+0000) Subject: (cua-global-mark-face): Add special case X-Git-Tag: ttn-vms-21-2-B4~961 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=fbcaad36b832a6894896dfbc0562bacd3f41c599;p=emacs.git (cua-global-mark-face): Add special case for displays supporting a high number of colors. --- 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)