# HG changeset patch
# User Karl Heuer <kwzh@gnu.org>
# Date 822196557 0
# Node ID 61fe711e4ae49d3f19d01704c2f36b3005df2f35
# Parent  0d6508ed26a2cb0e614d855257f8bb0119a07a8e
(compilation-handle-exit): If process-status doesn't
exist (e.g. on MSDOS), use an empty string.

diff -r 0d6508ed26a2 -r 61fe711e4ae4 lisp/progmodes/compile.el
--- a/lisp/progmodes/compile.el	Sun Jan 21 03:54:12 1996 +0000
+++ b/lisp/progmodes/compile.el	Sun Jan 21 03:55:57 1996 +0000
@@ -601,7 +601,10 @@
     (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))