Mercurial > emacs
changeset 47300:5128d5a8980c
(compile-internal): Add optional argument no-async.
| author | Colin Walters <walters@gnu.org> |
|---|---|
| date | Sat, 07 Sep 2002 21:29:44 +0000 |
| parents | 9c81bdbbbc0e |
| children | bac8aaf18835 |
| files | lisp/progmodes/compile.el |
| diffstat | 1 files changed, 7 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/progmodes/compile.el Sat Sep 07 21:28:04 2002 +0000 +++ b/lisp/progmodes/compile.el Sat Sep 07 21:29:44 2002 +0000 @@ -956,7 +956,8 @@ &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 @@ \ 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 @@ (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)