chaning colors.

This commit is contained in:
Kazu Yamamoto 2014-03-31 10:37:05 +09:00
parent 3bfbbb8b5c
commit 6519bfe029

View File

@ -16,7 +16,7 @@
;; stolen from flymake.el ;; stolen from flymake.el
(defface ghc-face-error (defface ghc-face-error
'((((supports :underline (:style wave))) '((((supports :underline (:style wave)))
:underline (:style wave :color "Red1")) :underline (:style wave :color "orangered"))
(t (t
:inherit error)) :inherit error))
"Face used for marking error lines." "Face used for marking error lines."
@ -24,7 +24,7 @@
(defface ghc-face-warn (defface ghc-face-warn
'((((supports :underline (:style wave))) '((((supports :underline (:style wave)))
:underline (:style wave :color "DarkOrange")) :underline (:style wave :color "gold"))
(t (t
:inherit warning)) :inherit warning))
"Face used for marking warning lines." "Face used for marking warning lines."