From: Richard M. Stallman <rms@gnu.org>
Date: Thu, 15 Nov 2007 11:52:42 +0000 (+0000)
Subject: (url-retrieve-synchronously): Call delete-process.
X-Git-Tag: emacs-pretest-22.1.90~382
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=9ffb952120776aec512cabc9bb5af660f016bcac;p=emacs.git

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

diff --git a/lisp/url/ChangeLog b/lisp/url/ChangeLog
index 146d224435b..7402de41aab 100644
--- a/lisp/url/ChangeLog
+++ b/lisp/url/ChangeLog
@@ -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.
diff --git a/lisp/url/url.el b/lisp/url/url.el
index 1af016ff0ba..98dc939af99 100644
--- a/lisp/url/url.el
+++ b/lisp/url/url.el
@@ -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.