Mercurial > emacs

changeset 30896:ca514eff4924

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(hi-yellow, hi-pink, hi-green, hi-blue): Force the foreground color to black if the default background is dark.
author Miles Bader <miles@gnu.org>
date Thu, 17 Aug 2000 00:49:11 +0000
parents 2921bb6221db
children bdf359cd5d72
files lisp/hi-lock.el
diffstat 1 files changed, 8 insertions(+), 4 deletions(-) [+]
line wrap: on
line diff
--- 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)