diff options
| -rw-r--r-- | lisp/net/rcompile.el | 7 |
1 files 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 |