Fix legibility of compilation mode-line messages.

* lisp/progmodes/compile.el (compilation-mode-line-fail)
(compilation-mode-line-run, compilation-mode-line-exit): New
faces.
(compilation-start, compilation-handle-exit): Use them.

* etc/themes/wheatgrass-theme.el:
* etc/themes/deeper-blue-theme.el:
* etc/themes/tango-dark-theme.el:
* etc/themes/tsdh-dark-theme.el: Add compilation-mode-line-fail,
compilation-mode-line-run, and compilation-mode-line-exit faces.

* etc/themes/manoj-dark-theme.el: Remove :family attributes.

Fixes: debbugs:11032

2 files changed, 41 insertions, 5 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 4794fbe2595..5a8644b81ff 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,10 @@
+2012-06-03  Chong Yidong  <cyd@gnu.org>
+
+        * progmodes/compile.el (compilation-mode-line-fail)
+        (compilation-mode-line-run, compilation-mode-line-exit): New
+        faces.
+        (compilation-start, compilation-handle-exit): Use them (Bug#11032).
+
 2012-06-03  Jack Duthen  <duthen.mac.01@gmail.com>  (tiny change)
 
         * progmodes/which-func.el (which-func-update-ediff-windows): New
diff --git a/lisp/progmodes/compile.el b/lisp/progmodes/compile.el
index 5c9d5c7e351..61dc371c087 100644
--- a/lisp/progmodes/compile.el
+++ b/lisp/progmodes/compile.el
@@ -674,6 +674,34 @@ starting the compilation process."
   :group 'compilation
   :version "22.1")
 
+;; The next three faces must be able to stand out against the
+;; `mode-line' and `mode-line-inactive' faces.
+
+(defface compilation-mode-line-fail
+  '((default :inherit compilation-error)
+    (((class color) (min-colors 16)) (:foreground "Red1" :weight bold))
+    (((class color) (min-colors 8)) (:foreground "red"))
+    (t (:inverse-video t :weight bold)))
+  "Face for Compilation mode's \"error\" mode line indicator."
+  :group 'compilation
+  :version "24.2")
+
+(defface compilation-mode-line-run
+  '((t :inherit compilation-warning))
+  "Face for Compilation mode's \"running\" mode line indicator."
+  :group 'compilation
+  :version "24.2")
+
+(defface compilation-mode-line-exit
+  '((default :inherit compilation-info)
+    (((class color) (min-colors 16))
+     (:foreground "ForestGreen" :weight bold))
+    (((class color)) (:foreground "green" :weight bold))
+    (t (:weight bold)))
+  "Face for Compilation mode's \"exit\" mode line indicator."
+  :group 'compilation
+  :version "24.2")
+
 (defface compilation-line-number
   '((t :inherit font-lock-keyword-face))
   "Face for displaying line numbers in compiler messages."
@@ -1626,7 +1654,7 @@ Returns the compilation buffer created."
                                                        outbuf command))))
               ;; Make the buffer's mode line show process state.
               (setq mode-line-process
-                    (list (propertize ":%s" 'face 'compilation-warning)))
+                    '(:propertize ":%s" face compilation-mode-line-run))
               (set-process-sentinel proc 'compilation-sentinel)
               (unless (eq mode t)
                 ;; Keep the comint filter, since it's needed for proper handling
@@ -1648,7 +1676,7 @@ Returns the compilation buffer created."
           (message "Executing `%s'..." command)
           ;; Fake mode line display as if `start-process' were run.
           (setq mode-line-process
-                (list (propertize ":run" 'face 'compilation-warning)))
+                '(:propertize ":run" face compilation-mode-line-run))
           (force-mode-line-update)
           (sit-for 0)                   ; Force redisplay
           (save-excursion
@@ -2046,9 +2074,10 @@ commands of Compilation major mode are available.  See
                                                        (car status)))))
             (message "%s" msg)
             (propertize out-string
-                        'help-echo msg 'face (if (> exit-status 0)
-                                                 'compilation-error
-                                               'compilation-info))))
+                        'help-echo msg
+                        'face (if (> exit-status 0)
+                                  'compilation-mode-line-fail
+                                'compilation-mode-line-exit))))
     ;; Force mode line redisplay soon.
     (force-mode-line-update)
     (if (and opoint (< opoint omax))