(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.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 4dd568639483cde7fc9b234a67df65391fca0297..266d07a9ee5fe6f872d7e927a0a4194829ce14db 100644 (file)
--- 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 456f92f9be2110092aaa6eee21c1687e7c62f53c..537d3cd0e0f75375227372b1c488918a09dedec4 100644 (file)
--- 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))