Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
08da93f1
Commit
08da93f1
authored
May 02, 2011
by
Lars Magne Ingebrigtsen
Browse files
(url-queue-run-queue): Pick the first waiting job, and not the last.
parent
5c77c3ed
Changes
2
Hide whitespace changes
Inline
Side-by-side
Showing
2 changed files
with
7 additions
and
3 deletions
+7
-3
lisp/url/ChangeLog
lisp/url/ChangeLog
+2
-0
lisp/url/url-queue.el
lisp/url/url-queue.el
+5
-3
No files found.
lisp/url/ChangeLog
View file @
08da93f1
2011-05-02 Lars Magne Ingebrigtsen <larsi@gnus.org>
* url-queue.el: New file.
(url-queue-run-queue): Pick the first waiting job, and not the
last.
2011-04-16 Lars Magne Ingebrigtsen <larsi@gnus.org>
...
...
lisp/url/url-queue.el
View file @
08da93f1
...
...
@@ -67,9 +67,11 @@ controls the level of parallelism via the
(
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
))
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment