[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] /srv/bzr/emacs/trunk r104080: Autoload `url-queue-retrieve
From: |
Lars Magne Ingebrigtsen |
Subject: |
[Emacs-diffs] /srv/bzr/emacs/trunk r104080: Autoload `url-queue-retrieve', and fix up the pruning code. |
Date: |
Mon, 02 May 2011 20:15:39 +0200 |
User-agent: |
Bazaar (2.3.1) |
------------------------------------------------------------
revno: 104080
committer: Lars Magne Ingebrigtsen <address@hidden>
branch nick: trunk
timestamp: Mon 2011-05-02 20:15:39 +0200
message:
Autoload `url-queue-retrieve', and fix up the pruning code.
modified:
lisp/url/ChangeLog
lisp/url/url-queue.el
=== modified file 'lisp/url/ChangeLog'
--- a/lisp/url/ChangeLog 2011-05-02 17:28:34 +0000
+++ b/lisp/url/ChangeLog 2011-05-02 18:15:39 +0000
@@ -3,6 +3,9 @@
* url-queue.el: New file.
(url-queue-run-queue): Pick the first waiting job, and not the
last.
+ (url-queue-parallel-processes): Lower the concurrency level, since
+ Emacs doesn't seem to like too many async processes.
+ (url-queue-prune-old-entries): Fix up the pruning code.
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:28:34 +0000
+++ b/lisp/url/url-queue.el 2011-05-02 18:15:39 +0000
@@ -31,7 +31,7 @@
(eval-when-compile (require 'cl))
(require 'browse-url)
-(defcustom url-queue-parallel-processes 4
+(defcustom url-queue-parallel-processes 2
"The number of concurrent processes."
:type 'integer
:group 'url)
@@ -47,8 +47,9 @@
(defstruct url-queue
url callback cbargs silentp
- process start-time)
+ buffer start-time)
+;;;###autoload
(defun url-queue-retrieve (url callback &optional cbargs silent)
"Retrieve URL asynchronously and call CALLBACK with CBARGS when finished.
Like `url-retrieve' (which see for details of the arguments), but
@@ -83,7 +84,7 @@
(apply (url-queue-callback job) (cons status (url-queue-cbargs job))))
(defun url-queue-start-retrieve (job)
- (setf (url-queue-process job)
+ (setf (url-queue-buffer job)
(ignore-errors
(url-retrieve (url-queue-url job)
#'url-queue-callback-function (list job)
@@ -98,12 +99,12 @@
url-queue-timeout))
(push job dead-jobs)))
(dolist (job dead-jobs)
- (when (processp (url-queue-process job))
- (ignore-errors
- (delete-process (url-queue-process job)))
- (ignore-errors
- (kill-buffer (process-buffer (url-queue-process job))))
- (setq url-queue (delq job url-queue))))))
+ (when (bufferp (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)))))
(provide 'url-queue)
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] /srv/bzr/emacs/trunk r104080: Autoload `url-queue-retrieve', and fix up the pruning code.,
Lars Magne Ingebrigtsen <=