diff options
author | Dan Nicolaescu <[email protected]> | 2005-04-16 16:03:29 +0000 |
---|---|---|
committer | Dan Nicolaescu <[email protected]> | 2005-04-16 16:03:29 +0000 |
commit | fbcaad36b832a6894896dfbc0562bacd3f41c599 (patch) | |
tree | 0421f06491fe7f10f1c6c03958d7248a8e41e5fe /lisp | |
parent | ccb9871da323d805da12934a4be39442ae0852c6 (diff) |
(cua-global-mark-face): Add special case
for displays supporting a high number of colors.
Diffstat (limited to 'lisp')
-rw-r--r-- | lisp/ChangeLog | 5 | ||||
-rw-r--r-- | lisp/emulation/cua-base.el | 3 |
2 files changed, 7 insertions, 1 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 3d2e37b25d..354554f546 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2005-04-16 Dan Nicolaescu <[email protected]> + + * emulation/cua-base.el (cua-global-mark-face): Add special case + for displays supporting a high number of colors. + 2005-04-16 Matt Hodges <[email protected]> (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 d267afc741..77e8f63693 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) |