From 35f7e85bdaaa49295d8042c64886511a341bc552 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Thu, 6 Jan 1994 04:33:55 +0000 Subject: [PATCH] (compile-internal): Extended to work without asynchronous subprocesses. --- lisp/progmodes/compile.el | 21 ++++++++++++++------- 1 file changed, 14 insertions(+), 7 deletions(-) diff --git a/lisp/progmodes/compile.el b/lisp/progmodes/compile.el index 5151ca9f710..9598c10914a 100644 --- a/lisp/progmodes/compile.el +++ b/lisp/progmodes/compile.el @@ -349,13 +349,20 @@ Returns the compilation buffer created." (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))) -- 2.39.5