(compilation-handle-exit):

Use compilation-error face instead of font-lock-warning-face.
Display the same message in the minibuffer as is inserted
at the end of the compilation buffer.

2 files changed, 14 insertions, 7 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 4dd56863948..266d07a9ee5 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,10 @@
+2008-02-24  Juri Linkov  <juri@jurta.org>
+
+        * progmodes/compile.el (compilation-handle-exit):
+        Use compilation-error face instead of font-lock-warning-face.
+        Display the same message in the minibuffer as is inserted
+        at the end of the compilation buffer.
+
 2008-02-24  Glenn Morris  <rgm@gnu.org>
 
         * vc-cvs.el (vc-cvs-register): Fix registering of directories in
diff --git a/lisp/progmodes/compile.el b/lisp/progmodes/compile.el
index 456f92f9be2..537d3cd0e0f 100644
--- a/lisp/progmodes/compile.el
+++ b/lisp/progmodes/compile.el
@@ -1549,13 +1549,13 @@ Turning the mode on runs the normal hook `compilation-minor-mode-hook'."
                          (append '(compilation-handle-exit t) nil))
     (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)))
+                (msg (format "%s %s" mode-name
+                             (replace-regexp-in-string "\n?$" "" (car status)))))
+            (message "%s" msg)
+            (propertize out-string
+                        'help-echo msg 'face (if (> exit-status 0)
+                                                 'compilation-error
+                                               'compilation-info))))
     ;; Force mode line redisplay soon.
     (force-mode-line-update)
     (if (and opoint (< opoint omax))