Github/emacs
2
0
Fork 1
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-23 13:27:36 +00:00
Code Issues Projects Releases Packages Wiki Activity

(url-file, url-file-asynch-callback): Use with-current-buffer.

Browse source
This commit is contained in:
Stefan Monnier 2005-06-13 14:32:42 +00:00
parent f99ed2f84b
commit 175384d1ee
2 changed files with 7 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
lisp/url/ChangeLog
View file

@ -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.

8
lisp/url/url-file.el
View file

@ -73,8 +73,7 @@ to them."
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 @@ to them."
(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")