(compilation-warning-face, compilation-info-face): Use min-colors.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index cb22fea69315ea8ef244b74a8a63ab3ca6af3960..7f25c71200eb1064151cbb57b610091c08c77f34 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2004-05-15  Dan Nicolaescu  <dann@ics.uci.edu>
+
+       * progmodes/compile.el (compilation-warning-face)
+       (compilation-info-face): Use min-colors.
+
 2004-05-15  Jan Dj\e,Ad\e(Brv  <jan.h.d@swipnet.se>
 
        * toolbar/close.pbm, toolbar/close.xpm

diff --git a/lisp/progmodes/compile.el b/lisp/progmodes/compile.el
index b22639f03509fdecc170b70b1d32ce66c8ba6f68..da43b7b70980ccd69cbb612f886022ebb05e8581 100644 (file)
--- a/lisp/progmodes/compile.el
+++ b/lisp/progmodes/compile.el
@@ -448,17 +448,19 @@ starting the compilation process.")
 (defvar compile-history nil)
 
 (defface compilation-warning-face
-  '((((type tty) (class color)) (:foreground "cyan" :weight bold))
-    (((class color)) (:foreground "Orange" :weight bold))
+  '((((class color) (min-colors 16)) (:foreground "Orange" :weight bold))
+    (((class color)) (:foreground "cyan" :weight bold))
     (t (:weight bold)))
   "Face used to highlight compiler warnings."
   :group 'font-lock-highlighting-faces
   :version "21.4")
 
 (defface compilation-info-face
-  '((((type tty) (class color)) (:foreground "green" :weight bold))
-    (((class color) (background light)) (:foreground "Green3" :weight bold))
-    (((class color) (background dark)) (:foreground "Green" :weight bold))
+  '((((class color) (min-colors 16) (background light)) 
+     (:foreground "Green3" :weight bold))
+    (((class color) (min-colors 16) (background dark)) 
+     (:foreground "Green" :weight bold))
+    (((class color)) (:foreground "green" :weight bold))
     (t (:weight bold)))
   "Face used to highlight compiler warnings."
   :group 'font-lock-highlighting-faces