diff options
Diffstat (limited to 'lisp/url/url-queue.el')
| -rw-r--r-- | lisp/url/url-queue.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/url/url-queue.el b/lisp/url/url-queue.el index 6350081b1a3..9bf1bca238d 100644 --- a/lisp/url/url-queue.el +++ b/lisp/url/url-queue.el @@ -162,8 +162,8 @@ The variable `url-queue-timeout' sets a timeout." (dolist (job url-queue) ;; Kill jobs that have lasted longer than the timeout. (when (and (url-queue-start-time job) - (> (- (float-time) (url-queue-start-time job)) - url-queue-timeout)) + (time-less-p url-queue-timeout + (time-since (url-queue-start-time job)))) (push job dead-jobs))) (dolist (job dead-jobs) (url-queue-kill-job job) |