diff options
| author | Juri Linkov <juri@jurta.org> | 2008-02-24 23:21:56 +0000 |
|---|---|---|
| committer | Juri Linkov <juri@jurta.org> | 2008-02-24 23:21:56 +0000 |
| commit | a46b95a8345d5c61c40ff60acd10c78d0e0e475e (patch) | |
| tree | 5649d449ebabe28ae985eb026682b91c91d5d158 /lisp | |
| parent | 229451669d34900b0d4a073c1df1edd6e24d2e21 (diff) | |
| download | emacs-a46b95a8345d5c61c40ff60acd10c78d0e0e475e.tar.gz | |
(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.
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/ChangeLog | 7 | ||||
| -rw-r--r-- | lisp/progmodes/compile.el | 14 |
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)) |