diff options
| author | Lars Magne Ingebrigtsen | 2011-05-02 19:28:34 +0200 |
|---|---|---|
| committer | Lars Magne Ingebrigtsen | 2011-05-02 19:28:34 +0200 |
| commit | 08da93f1a3b99ea81572aeb2e8d0fdfa7b63b0e8 (patch) | |
| tree | 20911441a312a7ef149028cc1a6399458918af16 /lisp/url/url-queue.el | |
| parent | 5c77c3eda3fad59d6aa5c716f49b24e911e1c222 (diff) | |
| download | emacs-08da93f1a3b99ea81572aeb2e8d0fdfa7b63b0e8.tar.gz emacs-08da93f1a3b99ea81572aeb2e8d0fdfa7b63b0e8.zip | |
(url-queue-run-queue): Pick the first waiting job, and not the last.
Diffstat (limited to 'lisp/url/url-queue.el')
| -rw-r--r-- | lisp/url/url-queue.el | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/lisp/url/url-queue.el b/lisp/url/url-queue.el index 2d94d8afea3..d572418e3e2 100644 --- a/lisp/url/url-queue.el +++ b/lisp/url/url-queue.el | |||
| @@ -67,9 +67,11 @@ controls the level of parallelism via the | |||
| 67 | (let ((running 0) | 67 | (let ((running 0) |
| 68 | waiting) | 68 | waiting) |
| 69 | (dolist (entry url-queue) | 69 | (dolist (entry url-queue) |
| 70 | (if (url-queue-start-time entry) | 70 | (cond |
| 71 | (incf running) | 71 | ((url-queue-start-time entry) |
| 72 | (setq waiting entry))) | 72 | (incf running)) |
| 73 | ((not waiting) | ||
| 74 | (setq waiting entry)))) | ||
| 73 | (when (and waiting | 75 | (when (and waiting |
| 74 | (< running url-queue-parallel-processes)) | 76 | (< running url-queue-parallel-processes)) |
| 75 | (setf (url-queue-start-time waiting) (float-time)) | 77 | (setf (url-queue-start-time waiting) (float-time)) |