diff options
| author | Miles Bader <miles@gnu.org> | 2000-08-17 00:51:39 +0000 |
|---|---|---|
| committer | Miles Bader <miles@gnu.org> | 2000-08-17 00:51:39 +0000 |
| commit | a0b8c9399c0ad10564b9a2aa5ecfd7eef1ca976e (patch) | |
| tree | ed4a5f99ce670324c658685079d43e4e1fdf167b /lisp/hi-lock.el | |
| parent | 0309803d6a9b331d6062be47ba3b4034a2f774a4 (diff) | |
| download | emacs-a0b8c9399c0ad10564b9a2aa5ecfd7eef1ca976e.tar.gz | |
(hi-yellow, hi-pink, hi-green, hi-blue): Force the foreground color to
black if the default background is dark.
Diffstat (limited to 'lisp/hi-lock.el')
| -rw-r--r-- | lisp/hi-lock.el | 12 |
1 files changed, 8 insertions, 4 deletions
diff --git a/lisp/hi-lock.el b/lisp/hi-lock.el index f2a77b620c7..c56c68c7746 100644 --- a/lisp/hi-lock.el +++ b/lisp/hi-lock.el @@ -119,22 +119,26 @@ calls." :group 'hi-lock-interactive-text-highlighting) (defface hi-yellow - '((t (:background "yellow"))) + '((((background dark)) (:background "yellow" :foreground "black")) + (t (:background "yellow"))) "Default face for hi-lock mode." :group 'hi-lock-faces) (defface hi-pink - '((t (:background "pink"))) + '(((background dark) (:background "pink" :foreground "black")) + (t (:background "pink"))) "Face for hi-lock mode." :group 'hi-lock-faces) (defface hi-green - '((t (:background "green"))) + '(((background dark) (:background "green" :foreground "black")) + (t (:background "green"))) "Face for hi-lock mode." :group 'hi-lock-faces) (defface hi-blue - '((t (:background "light blue"))) + '(((background dark) (:background "light blue" :foreground "black")) + (t (:background "light blue"))) "Face for hi-lock mode." :group 'hi-lock-faces) |