# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 757830835 0
# Node ID b34aaec781fcd2861da44d0150fe6274bbc2234b
# Parent  cbc904743f1677f2a35edeb0b1a768f6fd064d51
(compile-internal): Extended to work without asynchronous subprocesses.

diff -r cbc904743f16 -r b34aaec781fc lisp/progmodes/compile.el
--- 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)))