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

1 files changed, 2 insertions, 1 deletions

diff --git a/lisp/progmodes/compile.el b/lisp/progmodes/compile.el
index bff419b81b7..7e326e9b62a 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.