diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2001-07-16 02:07:12 +0000 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2001-07-16 02:07:12 +0000 |
| commit | 3432260a6fd2968b3654821ba6ef80c097e2b47c (patch) | |
| tree | 6eac55a37f054d79300fde85f25e9622c2e58942 /lisp | |
| parent | 3f3960a544ec38afa5ae162ea65a1b1601098020 (diff) | |
| download | emacs-3432260a6fd2968b3654821ba6ef80c097e2b47c.tar.gz emacs-3432260a6fd2968b3654821ba6ef80c097e2b47c.tar.bz2 emacs-3432260a6fd2968b3654821ba6ef80c097e2b47c.zip | |
(remote-compile): Use make-local-variable.
Diffstat (limited to 'lisp')
| -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 |