diff options
Diffstat (limited to 'sx-request.el')
| -rw-r--r-- | sx-request.el | 7 |
1 files changed, 3 insertions, 4 deletions
diff --git a/sx-request.el b/sx-request.el index 7a7bbf4..10bec4a 100644 --- a/sx-request.el +++ b/sx-request.el @@ -92,8 +92,7 @@ number of requests left every time it finishes a call." :group 'sx :type 'integer) -(defvar sx-request-all-items-delay - 1 +(defvar sx-request-all-items-delay 0 "Delay in seconds with each `sx-request-all-items' iteration. It is good to use a reasonable delay to avoid rate-limiting.") @@ -110,9 +109,9 @@ It is good to use a reasonable delay to avoid rate-limiting.") ;; we've likely just looped around the "least significant" ;; bits of `current-time'. (setq sx--backoff-time time) - (message "Backoff detected, waiting %s seconds" (< time sx--backoff-time)) (when (< time sx--backoff-time) - (sleep-for (+ 2 (- sx--backoff-time time)))))))) + (message "Backoff detected, waiting %s seconds" (- sx--backoff-time time)) + (sleep-for (+ 0.3 (- sx--backoff-time time)))))))) (defun sx-request-all-items (method &optional args request-method stop-when) |