;;; 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
;;; 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:
;;;; user defined variables
-(defvar remote-compile-rsh-command
- (if (eq system-type 'usg-unix-v) "remsh" "rsh")
- "*Name of remote shell command: `rsh' for BSD or `remsh' for SYSV.")
-
(defvar remote-compile-host nil
"*Host for remote compilations.")
(ange-ftp-ftp-name default-directory)))
(compile-command
(format "%s %s -l %s \"(%scd %s; %s)\""
- remote-compile-rsh-command
+ remote-shell-program
host
remote-compile-user
(if remote-compile-run-before
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