From 11aedcecf750489e8022f0c2ee2452d35c82081a Mon Sep 17 00:00:00 2001 From: Lars Magne Ingebrigtsen Date: Mon, 2 May 2011 20:30:48 +0200 Subject: [PATCH] Kill all processes associated with the buffer. --- lisp/url/url-queue.el | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) diff --git a/lisp/url/url-queue.el b/lisp/url/url-queue.el index 7f20f80cc99..08496ad5afb 100644 --- a/lisp/url/url-queue.el +++ b/lisp/url/url-queue.el @@ -93,15 +93,16 @@ controls the level of parallelism via the (defun url-queue-prune-old-entries () (let (dead-jobs) (dolist (job url-queue) - ;; Kill jobs that have lasted longer than five seconds. + ;; Kill jobs that have lasted longer than the timeout. (when (and (url-queue-start-time job) (> (- (float-time) (url-queue-start-time job)) url-queue-timeout)) (push job dead-jobs))) (dolist (job dead-jobs) (when (bufferp (url-queue-buffer job)) - (ignore-errors - (delete-process (get-buffer-process (url-queue-buffer job)))) + (while (get-buffer-process (url-queue-buffer job)) + (ignore-errors + (delete-process (get-buffer-process (url-queue-buffer job))))) (ignore-errors (kill-buffer (url-queue-buffer job)))) (setq url-queue (delq job url-queue))))) -- 2.11.4.GIT