# HG changeset patch
# User Miles Bader <miles@gnu.org>
# Date 966473351 0
# Node ID ca514eff492410dedc376ab6f43a25ed50e2eefe
# Parent  2921bb6221dba1e9bd5f3f202f1933142fa29e82
(hi-yellow, hi-pink, hi-green, hi-blue): Force the foreground color to
  black if the default background is dark.

diff -r 2921bb6221db -r ca514eff4924 lisp/hi-lock.el
--- a/lisp/hi-lock.el	Wed Aug 16 22:46:16 2000 +0000
+++ b/lisp/hi-lock.el	Thu Aug 17 00:49:11 2000 +0000
@@ -119,22 +119,26 @@
   :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)