Commit 3432260a authored by Stefan Monnier's avatar Stefan Monnier
Browse files

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

parent 3f3960a5
...@@ -171,9 +171,8 @@ See \\[compile]." ...@@ -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
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment