# HG changeset patch
# User Roland McGrath <roland@gnu.org>
# Date 760648111 0
# Node ID 9825035489025da91da3372c00a4199f156b8284
# Parent  2de9426a38bf82addcadb03e3b5f804eebb8b70c
(remote-compile): Set comint-file-name-prefix in the compilation buffer.

diff -r 2de9426a38bf -r 982503548902 lisp/rcompile.el
--- a/lisp/rcompile.el	Mon Feb 07 18:40:13 1994 +0000
+++ b/lisp/rcompile.el	Mon Feb 07 19:08:31 1994 +0000
@@ -1,6 +1,6 @@
 ;;; rcompile.el Run a compilation on a remote machine
 
-;;; Copyright (C) 1993 Free Software Foundation, Inc.
+;;; Copyright (C) 1993, 1994 Free Software Foundation, Inc.
 
 ;; Author: Albert    <alon@milcse.rtsg.mot.com>
 ;; Maintainer: FSF
@@ -163,6 +163,11 @@
                   compile-command)))
     (setq remote-compile-host host)
     (save-some-buffers nil nil)
-    (compile-internal compile-command "No more errors")))
+    (compile-internal compile-command "No more errors")
+    ;; Set comint-file-name-prefix in the compilation buffer so
+    ;; compilation-parse-errors will find referenced files by ange-ftp.
+    (save-excursion
+      (set-buffer compilation-last-buffer)
+      (setq comint-file-name-prefix (concat "/" host ":")))))
 
 ;;; rcompile.el ends here