summaryrefslogtreecommitdiff
path: root/lisp/url/url.el
diff options
context:
space:
mode:
Diffstat (limited to 'lisp/url/url.el')
-rw-r--r--lisp/url/url.el3
1 files changed, 1 insertions, 2 deletions
diff --git a/lisp/url/url.el b/lisp/url/url.el
index 20c57115426..ea581010178 100644
--- a/lisp/url/url.el
+++ b/lisp/url/url.el
@@ -259,8 +259,7 @@ how long to wait for a response before giving up."
;; process output.
(while (and (not retrieval-done)
(or (not timeout)
- (< (float-time (time-subtract
- (current-time) start-time))
+ (< (float-time (time-subtract nil start-time))
timeout)))
(url-debug 'retrieval
"Spinning in url-retrieve-synchronously: %S (%S)"