Mercurial > emacs

changeset 8795:15814086be44

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(compilation-sentinel): Include exit status in modeline.
author Karl Heuer <kwzh@gnu.org>
date Fri, 16 Sep 1994 21:40:54 +0000
parents 5921ea6d7f98
children e4e935319d55
files lisp/progmodes/compile.el
diffstat 1 files changed, 2 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- 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.