From 3432260a6fd2968b3654821ba6ef80c097e2b47c Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Mon, 16 Jul 2001 02:07:12 +0000 Subject: [PATCH] (remote-compile): Use make-local-variable. --- lisp/net/rcompile.el | 7 +++---- 1 file changed, 3 insertions(+), 4 deletions(-) diff --git a/lisp/net/rcompile.el b/lisp/net/rcompile.el index ec97c7c4dcb..e635c2f1612 100644 --- a/lisp/net/rcompile.el +++ b/lisp/net/rcompile.el @@ -171,9 +171,8 @@ See \\[compile]." (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) - (make-variable-buffer-local 'comint-file-name-prefix) - (setq comint-file-name-prefix (concat "/" host ":"))))) + (with-current-buffer compilation-last-buffer + (set (make-local-variable 'comint-file-name-prefix) + (concat "/" host ":"))))) ;;; rcompile.el ends here -- 2.39.2