(compilation-sentinel): Use `format'; `concat' doesn't

stringize integers anymore.

diff --git a/lisp/progmodes/compile.el b/lisp/progmodes/compile.el
index c6c14bd60be98c4360b44ab5e7523157b06e3a41..3a9cd3218e55b389acfa44ac2a095b1941cda06e 100644 (file)
--- a/lisp/progmodes/compile.el
+++ b/lisp/progmodes/compile.el
@@ -550,9 +550,8 @@ See `compilation-mode'."
                      (insert " at " (substring (current-time-string) 0 19))
                      (forward-char 1)
                      (setq mode-line-process
-                           (concat ":"
-                                   (symbol-name (process-status proc))
-                                   " [" (process-exit-status proc) "]"))
+                           (format ":%s [%d]" (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.