[Emacs-diffs] /srv/bzr/emacs/trunk r104079: (url-queue-run-queue): Pick the first waiting job, and not the last.

[Lars Magne Ingebrigtsen]

------------------------------------------------------------
revno: 104079
committer: Lars Magne Ingebrigtsen <address@hidden>
branch nick: trunk
timestamp: Mon 2011-05-02 19:28:34 +0200
message:
  (url-queue-run-queue): Pick the first waiting job, and not the last.
modified:
  lisp/url/ChangeLog
  lisp/url/url-queue.el

=== modified file 'lisp/url/ChangeLog'
--- a/lisp/url/ChangeLog        2011-05-02 17:06:56 +0000
+++ b/lisp/url/ChangeLog        2011-05-02 17:28:34 +0000
@@ -1,6 +1,8 @@
 2011-05-02  Lars Magne Ingebrigtsen  <address@hidden>
 
        * url-queue.el: New file.
+       (url-queue-run-queue): Pick the first waiting job, and not the
+       last.
 
 2011-04-16  Lars Magne Ingebrigtsen  <address@hidden>
 

=== modified file 'lisp/url/url-queue.el'
--- a/lisp/url/url-queue.el     2011-05-02 17:06:56 +0000
+++ b/lisp/url/url-queue.el     2011-05-02 17:28:34 +0000
@@ -67,9 +67,11 @@
   (let ((running 0)
        waiting)
     (dolist (entry url-queue)
-      (if (url-queue-start-time entry)
-         (incf running)
-       (setq waiting entry)))
+      (cond
+       ((url-queue-start-time entry)
+       (incf running))
+       ((not waiting)
+       (setq waiting entry))))
     (when (and waiting
               (< running url-queue-parallel-processes))
       (setf (url-queue-start-time waiting) (float-time))