Mercurial > emacs
diff lisp/rcompile.el @ 5827:982503548902
(remote-compile): Set comint-file-name-prefix in the compilation buffer.
| author | Roland McGrath <roland@gnu.org> |
|---|---|
| date | Mon, 07 Feb 1994 19:08:31 +0000 |
| parents | eecc796f374d |
| children | 0c2b604b0385 |
line wrap: on
line diff
--- 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