From: Chong Yidong <cyd@stupidchicken.com>
Date: Wed, 23 Jul 2008 21:54:48 +0000 (+0000)
Subject: (flymake-errline, flymake-warnline): Use more suitable colors on dark
X-Git-Tag: emacs-pretest-23.0.90~3951
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=0880f4fcb17d77cff1f7e839467fa0f0c96e847f;p=emacs.git

(flymake-errline, flymake-warnline): Use more suitable colors on dark
displays.
---

diff --git a/lisp/progmodes/flymake.el b/lisp/progmodes/flymake.el
index b6e71b0a5d6..02a73bd4de6 100644
--- a/lisp/progmodes/flymake.el
+++ b/lisp/progmodes/flymake.el
@@ -787,15 +787,15 @@ Return t if it has at least one flymake overlay, nil if no overlay."
     has-flymake-overlays))
 
 (defface flymake-errline
-  ;;+   '((((class color)) (:foreground "OrangeRed" :bold t :underline t))
-  ;;+   '((((class color)) (:underline "OrangeRed"))
-  '((((class color)) (:background "LightPink"))
+  '((((background dark)) (:background "Firebrick4"))
+    (((background light)) (:background "LightPink"))
     (t (:bold t)))
   "Face used for marking error lines."
   :group 'flymake)
 
 (defface flymake-warnline
-  '((((class color)) (:background "LightBlue2"))
+  '((((background dark)) (:background "DarkBlue"))
+    (((background light)) (:background "LightBlue2"))
     (t (:bold t)))
   "Face used for marking warning lines."
   :group 'flymake)