(mouse-save-then-kill, mouse-secondary-save-then-kill): Use the kill-new

[bpt/emacs.git] / lisp / rcompile.el

diff --git a/lisp/rcompile.el b/lisp/rcompile.el
index 9c0e4f2..f408770 100644 (file)
--- a/lisp/rcompile.el
+++ b/lisp/rcompile.el
@@ -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
@@ -59,13 +59,6 @@
 ;;; Will allow anyone access to your account without a password. I suggest you
 ;;; read the rhosts(5) manual page before you edit this file (if you are not
 ;;; familiar with it already) 
-
-;;; History:
-;;; V1.1 Oct 13 1993 Alon Albert
-;;;   SYSV support by Jay Finger <finger@mikey.convex.com>
-;;; V1.0 Oct 6 1993 Alon Albert
-;;;   Initial cut.
-
 \f
 ;;; Code:
 
@@ -163,6 +156,11 @@ See \\[compile]."
                   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