(remote-compile): Use compilation-start.

diff --git a/lisp/net/rcompile.el b/lisp/net/rcompile.el
index c9078ac2d76a5fa61e4d0a91411e74a55b0b0036..6928b2f49435d7a642592e75d3b44ca99790db5d 100644 (file)
--- 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