Github/emacs
2
0
Fork 1
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-20 03:47:34 +00:00
Code Issues Projects Releases Packages Wiki Activity

(compilation-start): Specify a face for

Browse source 
mode-line-process.
(compilation-handle-exit): Specify a face and a tooltip for
mode-line-process.
This commit is contained in:
Dan Nicolaescu 2008-02-24 20:44:24 +00:00
parent 9d2818d676
commit a8bdd228f8
2 changed files with 18 additions and 2 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 Dan Nicolaescu <dann@ics.uci.edu>
* progmodes/compile.el (compilation-start): Specify a face for
mode-line-process.
(compilation-handle-exit): Specify a face and a tooltip for
mode-line-process.
2008-02-24 Stefan Monnier <monnier@iro.umontreal.ca>
* hilit-chg.el: Remove spurious * in defcustom docstrings.

13
lisp/progmodes/compile.el
View file

@ -1248,7 +1248,8 @@ Returns the compilation buffer created."
(start-file-process-shell-command (downcase mode-name)
outbuf command))))
;; Make the buffer's mode line show process state.
(setq mode-line-process '(":%s"))
(setq mode-line-process
(list (propertize ":%s" 'face 'compilation-warning)))
(set-process-sentinel proc 'compilation-sentinel)
(set-process-filter proc 'compilation-filter)
;; Use (point-max) here so that output comes in
@ -1546,7 +1547,15 @@ Turning the mode on runs the normal hook `compilation-minor-mode-hook'."
;; Prevent that message from being recognized as a compilation error.
(add-text-properties omax (point)
(append '(compilation-handle-exit t) nil))
(setq mode-line-process (format ":%s [%s]" process-status (cdr status)))
(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)))
;; Force mode line redisplay soon.
(force-mode-line-update)
(if (and opoint (< opoint omax))