diff options
| author | Karl Heuer <[email protected]> | 1994-09-16 21:40:54 +0000 |
|---|---|---|
| committer | Karl Heuer <[email protected]> | 1994-09-16 21:40:54 +0000 |
| commit | 5cb9f2dba5d9f1ac89561bd2ea664b3462fa487f (patch) | |
| tree | 0a98b2ab24cdfa544764d51d92687690e4912f25 /lisp | |
| parent | c1b97b443cc54c2e5789a4b968484bee160fd7c8 (diff) | |
(compilation-sentinel): Include exit status in modeline.
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/progmodes/compile.el | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lisp/progmodes/compile.el b/lisp/progmodes/compile.el index bff419b81b..7e326e9b62 100644 --- a/lisp/progmodes/compile.el +++ b/lisp/progmodes/compile.el @@ -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. |