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

5cb9f2db · Karl Heuer · c1b97b44 · 5cb9f2db
Commit 5cb9f2db authored Sep 16, 1994 by Karl Heuer
Hide whitespace changes
Inline Side-by-side

Showing with 2 additions and 1 deletion

lisp/progmodes/compile.el lisp/progmodes/compile.el +2 -1

No files found.
--- 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.