procyberian/emacs
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

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

Browse source 
black if the default background is dark.
This commit is contained in:
Miles Bader 2000-08-17 00:51:39 +00:00
parent 0309803d6a
commit a0b8c9399c
2 changed files with 14 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

7
lisp/ChangeLog
View file

@ -1,3 +1,8 @@
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.

12
lisp/hi-lock.el
View file

@ -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)