[Emacs-diffs] Changes to emacs/lisp/progmodes/compile.el

[Richard M. Stallman]

Index: emacs/lisp/progmodes/compile.el
diff -c emacs/lisp/progmodes/compile.el:1.259 
emacs/lisp/progmodes/compile.el:1.260
*** emacs/lisp/progmodes/compile.el:1.259       Fri Jul 12 19:56:12 2002
--- emacs/lisp/progmodes/compile.el     Sat Sep  7 17:29:44 2002
***************
*** 956,962 ****
                                 &optional name-of-mode parser
                                 error-regexp-alist name-function
                                 enter-regexp-alist leave-regexp-alist
!                                file-regexp-alist nomessage-regexp-alist)
    "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.
--- 956,963 ----
                                 &optional name-of-mode parser
                                 error-regexp-alist name-function
                                 enter-regexp-alist leave-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,981 ****
--- 976,986 ----
  \ 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,1074 ****
        (if compilation-process-setup-function
            (funcall compilation-process-setup-function))
        ;; Start the compilation.
!       (if (fboundp 'start-process)
            (let* ((process-environment
                    (append
                     (if (and (boundp 'system-uses-terminfo)
--- 1073,1079 ----
        (if compilation-process-setup-function
            (funcall compilation-process-setup-function))
        ;; Start the compilation.
!       (if (not no-async)
            (let* ((process-environment
                    (append
                     (if (and (boundp 'system-uses-terminfo)