mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-19 04:10:18 -08:00
Code Issues Projects Releases Wiki Activity

(remote-compile): Use make-local-variable.

Browse source
This commit is contained in:
Stefan Monnier 2001-07-16 02:07:12 +00:00
parent 3f3960a544
commit 3432260a6f
1 changed files with 3 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

7
lisp/net/rcompile.el
View file

@ -171,9 +171,8 @@ See \\[compile]."
(compile-internal compile-command "No more errors") (compile-internal compile-command "No more errors")
;; Set comint-file-name-prefix in the compilation buffer so ;; Set comint-file-name-prefix in the compilation buffer so
;; compilation-parse-errors will find referenced files by ange-ftp. ;; compilation-parse-errors will find referenced files by ange-ftp.
(save-excursion (with-current-buffer compilation-last-buffer
(set-buffer compilation-last-buffer) (set (make-local-variable 'comint-file-name-prefix)
(make-variable-buffer-local 'comint-file-name-prefix) (concat "/" host ":")))))
(setq comint-file-name-prefix (concat "/" host ":")))))
;;; rcompile.el ends here ;;; rcompile.el ends here