[Emacs-diffs] /srv/bzr/emacs/trunk r104081: Kill all processes associated with the buffer.

[Lars Magne Ingebrigtsen]

------------------------------------------------------------
revno: 104081
committer: Lars Magne Ingebrigtsen <address@hidden>
branch nick: trunk
timestamp: Mon 2011-05-02 20:30:48 +0200
message:
  Kill all processes associated with the buffer.
modified:
  lisp/url/url-queue.el

=== modified file 'lisp/url/url-queue.el'
--- a/lisp/url/url-queue.el     2011-05-02 18:15:39 +0000
+++ b/lisp/url/url-queue.el     2011-05-02 18:30:48 +0000
@@ -93,15 +93,16 @@
 (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)))))