mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-30 04:10:54 -08:00
Code Issues Projects Releases Wiki Activity

(url-retrieve-synchronously): Adjust the workaround so as not

Browse source 
to stop in the middle of a redirection.
This commit is contained in:
Stefan Monnier 2006-01-10 19:31:15 +00:00
parent 9f812d2370
commit e7ea7cac4e
2 changed files with 8 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

3
lisp/url/ChangeLog
View file

@ -1,5 +1,8 @@
2006-01-10 Stefan Monnier <monnier@iro.umontreal.ca>
* url.el (url-retrieve-synchronously): Adjust the workaround so as not
to stop in the middle of a redirection.
* url-vars.el (url-privacy-level): Add setter.
2006-01-05 Stefan Monnier <monnier@iro.umontreal.ca>

7
lisp/url/url.el
View file

@ -190,11 +190,14 @@ no further processing). URL is either a string or a parsed URL."
"Spinning in url-retrieve-synchronously: %S (%S)"
retrieval-done asynch-buffer)
(if (and proc (memq (process-status proc)
'(closed exit signal failed)))
'(closed exit signal failed))
;; Make sure another process hasn't been started, as can
;; happen with http redirections.
(eq proc (or (get-buffer-process asynch-buffer) proc)))
;; FIXME: It's not clear whether url-retrieve's callback is
;; guaranteed to be called or not. It seems that url-http
;; decides sometimes consciously not to call it, so it's not
;; clear that it's a bug, but even if we need to decide how
;; clear that it's a bug, but even then we need to decide how
;; url-http can then warn us that the download has completed.
;; In the mean time, we use this here workaround.
(setq retrieval-done t)