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

exist (e.g. on MSDOS), use an empty string.

1 files changed, 4 insertions, 1 deletions

diff --git a/lisp/progmodes/compile.el b/lisp/progmodes/compile.el
index 54945fe9983..881fb5a2f93 100644
--- a/lisp/progmodes/compile.el
+++ b/lisp/progmodes/compile.el
@@ -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))