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

  black if the default background is dark.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index dd0dd24005ed4ed2e1307d5368b64d3f832577f8..59e9c53431c0a1392ce1fe1ae589a6d8e9475144 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -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.
 

diff --git a/lisp/hi-lock.el b/lisp/hi-lock.el
index f2a77b620c771c8f9d49156b79b78a7b9a584db9..c56c68c7746657ef98196973602e58571f6f9f59 100644 (file)
--- 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)