procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(compilation-handle-exit):

Browse source 
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.
This commit is contained in:
Juri Linkov 2008-02-24 23:21:56 +00:00
parent 229451669d
commit a46b95a834
2 changed files with 14 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
lisp/ChangeLog
View file

@ -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

14
lisp/progmodes/compile.el
View file

@ -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))