Commit a46b95a8 authored by Juri Linkov's avatar Juri Linkov
Browse files

(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.
parent 22945166
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
......
......@@ -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))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment