# HG changeset patch
# User Karl Heuer <kwzh@gnu.org>
# Date 779751654 0
# Node ID 15814086be442e1a6e86f63b2901c86c97d4773d
# Parent  5921ea6d7f983f14cc9b7301d5865c578a6f2be6
(compilation-sentinel): Include exit status in modeline.

diff -r 5921ea6d7f98 -r 15814086be44 lisp/progmodes/compile.el
--- a/lisp/progmodes/compile.el	Fri Sep 16 21:39:41 1994 +0000
+++ b/lisp/progmodes/compile.el	Fri Sep 16 21:40:54 1994 +0000
@@ -539,7 +539,8 @@
 		      (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.