(compilation-start): Specify a face for

mode-line-process.
(compilation-handle-exit): Specify a face and a tooltip for
mode-line-process.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index b659a3923c10d390f60223272ae8c8091b1957da..e7f16811201a2f5858dcb4be891232266df3e9a8 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,10 @@
+2008-02-24  Dan Nicolaescu  <dann@ics.uci.edu>
+
+       * progmodes/compile.el (compilation-start): Specify a face for
+       mode-line-process.
+       (compilation-handle-exit): Specify a face and a tooltip for
+       mode-line-process.
+
 2008-02-24  Stefan Monnier  <monnier@iro.umontreal.ca>
 
        * hilit-chg.el: Remove spurious * in defcustom docstrings.

diff --git a/lisp/progmodes/compile.el b/lisp/progmodes/compile.el
index e68441547b6780c8624c35cbca5facb7700bd6d2..456f92f9be2110092aaa6eee21c1687e7c62f53c 100644 (file)
--- a/lisp/progmodes/compile.el
+++ b/lisp/progmodes/compile.el
@@ -1248,7 +1248,8 @@ Returns the compilation buffer created."
                 (start-file-process-shell-command (downcase mode-name)
                                                   outbuf command))))
          ;; Make the buffer's mode line show process state.
-         (setq mode-line-process '(":%s"))
+         (setq mode-line-process 
+               (list (propertize ":%s" 'face 'compilation-warning)))
          (set-process-sentinel proc 'compilation-sentinel)
          (set-process-filter proc 'compilation-filter)
          ;; Use (point-max) here so that output comes in
@@ -1546,7 +1547,15 @@ Turning the mode on runs the normal hook `compilation-minor-mode-hook'."
     ;; Prevent that message from being recognized as a compilation error.
     (add-text-properties omax (point)
                         (append '(compilation-handle-exit t) nil))
-    (setq mode-line-process (format ":%s [%s]" process-status (cdr status)))
+    (setq mode-line-process
+         (let ((out-string (format ":%s [%s]" process-status (cdr status)))
+               (tooltip (buffer-substring-no-properties (1+ omax) (point))))
+           (propertize
+            out-string
+            'help-echo tooltip
+            'face
+            (if (> exit-status 0) 'font-lock-warning-face 'compilation-info))))
+    (message (format "exit status: %s %s" exit-status (> 0 exit-status)))
     ;; Force mode line redisplay soon.
     (force-mode-line-update)
     (if (and opoint (< opoint omax))