(url-retrieve-synchronously): Call delete-process.

This commit is contained in:
Richard M. Stallman 2007-11-15 11:52:42 +00:00
parent bb189688f6
commit 9ffb952120
2 changed files with 7 additions and 1 deletions

View file

@ -1,3 +1,7 @@
2007-11-15 Richard Stallman <rms@gnu.org>
* url.el (url-retrieve-synchronously): Call delete-process.
2007-10-13 Richard Stallman <rms@gnu.org>
* url-util.el (url-basepath): Function deleted.

View file

@ -240,7 +240,9 @@ no further processing). URL is either a string or a parsed URL."
;; XXX: The callback must always be called. Any
;; exception is a bug that should be fixed, not worked
;; around.
(setq retrieval-done t))
(progn ;; Call delete-process so we run any sentinel now.
(delete-process proc)
(setq retrieval-done t)))
;; We used to use `sit-for' here, but in some cases it wouldn't
;; work because apparently pending keyboard input would always
;; interrupt it before it got a chance to handle process input.