Mercurial > emacs
changeset 5456:b34aaec781fc
(compile-internal): Extended to work without asynchronous subprocesses.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Thu, 06 Jan 1994 04:33:55 +0000 |
| parents | cbc904743f16 |
| children | 4fe8a94b0aa6 |
| files | lisp/progmodes/compile.el |
| diffstat | 1 files changed, 14 insertions(+), 7 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/progmodes/compile.el Thu Jan 06 04:32:34 1994 +0000 +++ b/lisp/progmodes/compile.el Thu Jan 06 04:33:55 1994 +0000 @@ -349,13 +349,20 @@ (window-height)))) (select-window w)))) ;; Start the compilation. - (let ((proc (start-process-shell-command (downcase mode-name) - outbuf - command))) - (set-process-sentinel proc 'compilation-sentinel) - (set-process-filter proc 'compilation-filter) - (set-marker (process-mark proc) (point) outbuf) - (setq compilation-in-progress (cons proc compilation-in-progress))))) + (if (fboundp 'start-process) + (let ((proc (start-process-shell-command (downcase mode-name) + outbuf + command))) + (set-process-sentinel proc 'compilation-sentinel) + (set-process-filter proc 'compilation-filter) + (set-marker (process-mark proc) (point) outbuf) + (setq compilation-in-progress + (cons proc compilation-in-progress))) + ;; No asynchronous processes available + (message (format "Executing `%s'..." command)) + (let ((status (call-process shell-file-name nil outbuf nil "-c" + command)))) + (message (format "Executing `%s'...done" command))))) ;; Make it so the next C-x ` will use this buffer. (setq compilation-last-buffer outbuf)))