From: Richard M. Stallman <rms@gnu.org>
Date: Sat, 21 May 2005 04:52:05 +0000 (+0000)
Subject: (remote-compile): Use compilation-start.
X-Git-Tag: ttn-vms-21-2-B4~105
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=a3d418482d127433e0bdd690ccd0c8fef4e9354a;p=emacs.git

(remote-compile): Use compilation-start.
---

diff --git a/lisp/net/rcompile.el b/lisp/net/rcompile.el
index c9078ac2d76..6928b2f4943 100644
--- a/lisp/net/rcompile.el
+++ b/lisp/net/rcompile.el
@@ -168,7 +168,7 @@ See \\[compile]."
                   compile-command)))
     (setq remote-compile-host host)
     (save-some-buffers nil nil)
-    (compile-internal compile-command "No more errors")
+    (compilation-start compile-command)
     ;; Set comint-file-name-prefix in the compilation buffer so
     ;; compilation-parse-errors will find referenced files by ange-ftp.
     (with-current-buffer compilation-last-buffer