Github/emacs
2
0
Fork 1
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-18 19:07:34 +00:00
Code Issues Projects Releases Packages Wiki Activity

(compilation-handle-exit): If process-status doesn't

Browse source 
exist (e.g. on MSDOS), use an empty string.
This commit is contained in:
Karl Heuer 1996-01-21 03:55:57 +00:00
parent 768d104bc2
commit d91cddc27a
1 changed files with 4 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
lisp/progmodes/compile.el
View file

@ -601,7 +601,10 @@ See `compilation-mode'."
(forward-char 1)
(setq mode-line-process
(format ":%s [%s]"
(process-status proc) (cdr status)))
(if (fboundp 'process-status)
(process-status proc)
"")
(cdr status)))
;; Force mode line redisplay soon.
(force-mode-line-update)
(if (and opoint (< opoint omax))