Commit 35f7e85b authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

(compile-internal): Extended to work without asynchronous subprocesses.

parent 8afc29f0
......@@ -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)))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment