[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] /srv/bzr/emacs/trunk r104079: (url-queue-run-queue): Pick
From: |
Lars Magne Ingebrigtsen |
Subject: |
[Emacs-diffs] /srv/bzr/emacs/trunk r104079: (url-queue-run-queue): Pick the first waiting job, and not the last. |
Date: |
Mon, 02 May 2011 19:28:34 +0200 |
User-agent: |
Bazaar (2.3.1) |
------------------------------------------------------------
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))
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] /srv/bzr/emacs/trunk r104079: (url-queue-run-queue): Pick the first waiting job, and not the last.,
Lars Magne Ingebrigtsen <=