From: Karl Heuer <kwzh@gnu.org>
Date: Sun, 21 Jan 1996 03:55:57 +0000 (+0000)
Subject: (compilation-handle-exit): If process-status doesn't
X-Git-Tag: emacs-19.34~1610
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=d91cddc27a2ec9bb59a0089e7ae96754a95e6cf9;p=emacs.git

(compilation-handle-exit): If process-status doesn't
exist (e.g. on MSDOS), use an empty string.
---

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))