# HG changeset patch
# User Stefan Monnier <monnier@iro.umontreal.ca>
# Date 995249232 0
# Node ID 0a4a44975e069eb28e045832afcf7cce87c5f1a7
# Parent  6dd037b0146e37fac39e03b2a4505c71ae17d66f
(remote-compile): Use make-local-variable.

diff -r 6dd037b0146e -r 0a4a44975e06 lisp/net/rcompile.el
--- a/lisp/net/rcompile.el	Mon Jul 16 01:55:37 2001 +0000
+++ b/lisp/net/rcompile.el	Mon Jul 16 02:07:12 2001 +0000
@@ -171,9 +171,8 @@
     (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