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

diff --git a/lisp/net/rcompile.el b/lisp/net/rcompile.el
index ec97c7c4dcbfa75f33901f8433e5466876542a10..e635c2f16128c23f05d47a9380d8398d146f1d1b 100644 (file)
--- 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