diff options
| author | Colin Walters <[email protected]> | 2002-09-07 21:29:44 +0000 |
|---|---|---|
| committer | Colin Walters <[email protected]> | 2002-09-07 21:29:44 +0000 |
| commit | 23b0c5fcb21bbaccc64034f62b4f69cf19a4aa1c (patch) | |
| tree | d818c8ca00f7ae5cf010e99fb6ad02dc2a759bf8 /lisp/progmodes/compile.el | |
| parent | 5488b9fcd3b1627598c3fcdb5c7080a924b84ea4 (diff) | |
(compile-internal): Add optional argument no-async.
Diffstat (limited to 'lisp/progmodes/compile.el')
| -rw-r--r-- | lisp/progmodes/compile.el | 9 |
1 files changed, 7 insertions, 2 deletions
diff --git a/lisp/progmodes/compile.el b/lisp/progmodes/compile.el index b0f2457df6..8ef974b5b1 100644 --- a/lisp/progmodes/compile.el +++ b/lisp/progmodes/compile.el @@ -956,7 +956,8 @@ Otherwise, construct a buffer name from MODE-NAME." &optional name-of-mode parser error-regexp-alist name-function enter-regexp-alist leave-regexp-alist - file-regexp-alist nomessage-regexp-alist) + file-regexp-alist nomessage-regexp-alist + no-async) "Run compilation command COMMAND (low level interface). ERROR-MESSAGE is a string to print if the user asks to see another error and there are no more errors. The rest of the arguments, 3-10 are optional. @@ -975,7 +976,11 @@ NOMESSAGE-REGEXP-ALIST is the nomessage regexp alist to use. \ and `compilation-nomessage-regexp-alist', respectively. For arg 7-10 a value `t' means an empty alist. +If NO-ASYNC is non-nil, start the compilation process synchronously. + Returns the compilation buffer created." + (unless no-async + (setq no-async (not (fboundp 'start-process)))) (let (outbuf) (save-excursion (or name-of-mode @@ -1068,7 +1073,7 @@ Returns the compilation buffer created." (if compilation-process-setup-function (funcall compilation-process-setup-function)) ;; Start the compilation. - (if (fboundp 'start-process) + (if (not no-async) (let* ((process-environment (append (if (and (boundp 'system-uses-terminfo) |