Mercurial > emacs

changeset 79396:e1aef858fc08

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(url-retrieve-synchronously): Call delete-process.
author Richard M. Stallman <rms@gnu.org>
date Thu, 15 Nov 2007 11:52:32 +0000
parents d9c1915a8cd1
children fd937348c9e9
files lisp/url/url.el
diffstat 1 files changed, 3 insertions(+), 1 deletions(-) [+]
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.