# HG changeset patch
# User Stefan Monnier <monnier@iro.umontreal.ca>
# Date 1118673162 0
# Node ID 70cb4d2371b49e03a373497b6b8365842e46c46f
# Parent  32d8df63f9dff8e965c0dacea1b66172930d7852
(url-file, url-file-asynch-callback): Use with-current-buffer.

diff -r 32d8df63f9df -r 70cb4d2371b4 lisp/url/ChangeLog
--- a/lisp/url/ChangeLog	Mon Jun 13 14:21:21 2005 +0000
+++ b/lisp/url/ChangeLog	Mon Jun 13 14:32:42 2005 +0000
@@ -1,3 +1,7 @@
+2005-06-13  Stefan Monnier  <monnier@iro.umontreal.ca>
+
+	* url-file.el (url-file, url-file-asynch-callback): with-current-buffer.
+
 2005-06-10  Stefan Monnier  <monnier@iro.umontreal.ca>
 
 	* url-dav.el: Remove most autoload cookies.
diff -r 32d8df63f9df -r 70cb4d2371b4 lisp/url/url-file.el
--- a/lisp/url/url-file.el	Mon Jun 13 14:21:21 2005 +0000
+++ b/lisp/url/url-file.el	Mon Jun 13 14:32:42 2005 +0000
@@ -73,8 +73,7 @@
 	    func args
 	    args efs))
   (let ((size (nth 7 (file-attributes name))))
-    (save-excursion
-      (set-buffer buff)
+    (with-current-buffer buff
       (goto-char (point-max))
       (if (/= -1 size)
 	  (insert (format "Content-length: %d\n" size)))
@@ -177,9 +176,8 @@
     (if (file-directory-p filename)
 	;; A directory is done the same whether we are local or remote
 	(url-find-file-dired filename)
-      (save-excursion
-	(setq buffer (generate-new-buffer " *url-file*"))
-	(set-buffer buffer)
+      (with-current-buffer
+	  (setq buffer (generate-new-buffer " *url-file*"))
 	(mm-disable-multibyte)
 	(setq url-current-object url)
 	(insert "Content-type: " (or content-type "application/octet-stream") "\n")