diff options
| author | Roland McGrath <roland@gnu.org> | 1994-02-07 19:08:31 +0000 |
|---|---|---|
| committer | Roland McGrath <roland@gnu.org> | 1994-02-07 19:08:31 +0000 |
| commit | 2559d4f338d869bf58445cdafcb10e7c1944d30b (patch) | |
| tree | 4558c05044565028a3afa1450288e08d522cddc9 /lisp/rcompile.el | |
| parent | e08d3f7ca56d17477d1461c0ae998184b334388e (diff) | |
| download | emacs-2559d4f338d869bf58445cdafcb10e7c1944d30b.tar.gz | |
(remote-compile): Set comint-file-name-prefix in the compilation buffer.
Diffstat (limited to 'lisp/rcompile.el')
| -rw-r--r-- | lisp/rcompile.el | 9 |
1 files changed, 7 insertions, 2 deletions
diff --git a/lisp/rcompile.el b/lisp/rcompile.el index 9c0e4f277cc..7b72686d590 100644 --- 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 @@ -163,6 +163,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 |