Mercurial > emacs
diff lisp/url/url.el @ 79396:e1aef858fc08
(url-retrieve-synchronously): Call delete-process.
author | Richard M. Stallman <rms@gnu.org> |
---|---|
date | Thu, 15 Nov 2007 11:52:32 +0000 |
parents | 8932997d0b62 |
children | 9c0b3f269b92 2cce56fd7361 |
line wrap: on
line diff
--- a/lisp/url/url.el Thu Nov 15 09:53:02 2007 +0000 +++ b/lisp/url/url.el Thu Nov 15 11:52:32 2007 +0000 @@ -240,7 +240,9 @@ ;; 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.