Commit a8bdd228 authored by Dan Nicolaescu's avatar Dan Nicolaescu
Browse files

(compilation-start): Specify a face for

mode-line-process.
(compilation-handle-exit): Specify a face and a tooltip for
mode-line-process.
parent 9d2818d6
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.
......
......@@ -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))
......
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