Mercurial > emacs

changeset 38420:0a4a44975e06

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(remote-compile): Use make-local-variable.
author Stefan Monnier <monnier@iro.umontreal.ca>
date Mon, 16 Jul 2001 02:07:12 +0000
parents 6dd037b0146e
children 207796d8dffc
files lisp/net/rcompile.el
diffstat 1 files changed, 3 insertions(+), 4 deletions(-) [+]
line wrap: on
line diff
--- 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