Commit a0b8c939 authored by Miles Bader's avatar Miles Bader

(hi-yellow, hi-pink, hi-green, hi-blue): Force the foreground color to

  black if the default background is dark.
parent 0309803d
2000-08-17 Miles Bader <miles@gnu.org>
* hi-lock.el (hi-yellow, hi-pink, hi-green, hi-blue): Force the
foreground color to black if the background is dark.
2000-08-16 Stefan Monnier <monnier@cs.yale.edu>
* loadhist.el (unload-feature): Typo.
......@@ -79,7 +84,7 @@
2000-08-16 Sam Steingold <sds@gnu.org>
* buff-menu.el (list-buffers-noselect): Use `dolist' instead of
* buff-menu.el (list-buffers-noselect): Use `dolist' instead Of
`while'; use `with-current-buffer' instead of `save-excursion'.
Removed unnecessary kludges now that "*Buffer List*" is excluded.
......
......@@ -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)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment