diff options
| author | Karl Heuer <kwzh@gnu.org> | 1996-01-21 03:55:57 +0000 |
|---|---|---|
| committer | Karl Heuer <kwzh@gnu.org> | 1996-01-21 03:55:57 +0000 |
| commit | d91cddc27a2ec9bb59a0089e7ae96754a95e6cf9 (patch) | |
| tree | 9be1a2e661b5532ae1fefdf011c0c632e83b4dd7 /lisp | |
| parent | 768d104bc2d3b8b7588bf7b8ba2893e55118496e (diff) | |
| download | emacs-d91cddc27a2ec9bb59a0089e7ae96754a95e6cf9.tar.gz | |
(compilation-handle-exit): If process-status doesn't
exist (e.g. on MSDOS), use an empty string.
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/progmodes/compile.el | 5 |
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)) |