diff options
| author | Lars Magne Ingebrigtsen <larsi@gnus.org> | 2011-05-02 20:30:48 +0200 |
|---|---|---|
| committer | Lars Magne Ingebrigtsen <larsi@gnus.org> | 2011-05-02 20:30:48 +0200 |
| commit | 11aedcecf750489e8022f0c2ee2452d35c82081a (patch) | |
| tree | 01adb77b4cd0bb72b5a0060cdc35044a9d326eae /lisp/url | |
| parent | 471129b1e3510bedc1a4a71fe5656961e803ca66 (diff) | |
| download | emacs-11aedcecf750489e8022f0c2ee2452d35c82081a.tar.gz | |
Kill all processes associated with the buffer.
Diffstat (limited to 'lisp/url')
| -rw-r--r-- | lisp/url/url-queue.el | 7 |
1 files 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))))) |