Mercurial > emacs
changeset 11109:d67cbc284d24
(compilation-sentinel): Use `format'; `concat' doesn't
stringize integers anymore.
| author | Karl Heuer <kwzh@gnu.org> |
|---|---|
| date | Fri, 24 Mar 1995 00:48:45 +0000 |
| parents | ad6e21535db6 |
| children | 5f696061a082 |
| files | lisp/progmodes/compile.el |
| diffstat | 1 files changed, 2 insertions(+), 3 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/progmodes/compile.el Fri Mar 24 00:35:46 1995 +0000 +++ b/lisp/progmodes/compile.el Fri Mar 24 00:48:45 1995 +0000 @@ -550,9 +550,8 @@ (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.