mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-29 08:31:35 -08:00
Code Issues Projects Releases Wiki Activity

Kill all processes associated with the buffer.

Browse source
This commit is contained in:
Lars Magne Ingebrigtsen 2011-05-02 20:30:48 +02:00
parent 471129b1e3
commit 11aedcecf7
1 changed files with 4 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

7
lisp/url/url-queue.el
View file

@ -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)))))