From a3d418482d127433e0bdd690ccd0c8fef4e9354a Mon Sep 17 00:00:00 2001
From: "Richard M. Stallman" <rms@gnu.org>
Date: Sat, 21 May 2005 04:52:05 +0000
Subject: [PATCH] (remote-compile): Use compilation-start.

---
 lisp/net/rcompile.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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
-- 
2.39.5