(compilation-sentinel): Include exit status in modeline.

This commit is contained in:
Karl Heuer 1994-09-16 21:40:54 +00:00
parent c1b97b443c
commit 5cb9f2dba5

View file

@ -539,7 +539,8 @@ See `compilation-mode'."
(forward-char 1)
(setq mode-line-process
(concat ":"
(symbol-name (process-status proc))))
(symbol-name (process-status proc))
" [" (process-exit-status proc) "]"))
;; Since the buffer and mode line will show that the
;; process is dead, we can delete it now. Otherwise it
;; will stay around until M-x list-processes.