diff options
Diffstat (limited to 'lisp/url/url.el')
| -rw-r--r-- | lisp/url/url.el | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/lisp/url/url.el b/lisp/url/url.el index fbf31d420cb..5242d42f04c 100644 --- a/lisp/url/url.el +++ b/lisp/url/url.el @@ -136,9 +136,11 @@ STATUS is a plist representing what happened during the request, with most recent events first, or an empty list if no events have occurred. Each pair is one of: -\(:redirect REDIRECTED-TO) - the request was redirected to this URL -\(:error (ERROR-SYMBOL . DATA)) - an error occurred. The error can be -signaled with (signal ERROR-SYMBOL DATA). +\(:redirect REDIRECTED-TO) - the request was redirected to this URL. + +\(:error (error type . DATA)) - an error occurred. TYPE is a +symbol that says something about where the error occurred, and +DATA is a list (possibly nil) that describes the error further. Return the buffer URL will load into, or nil if the process has already completed (i.e. URL was a mailto URL or similar; in this case @@ -259,9 +261,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)) - timeout))) + (time-less-p (time-since start-time) timeout))) (url-debug 'retrieval "Spinning in url-retrieve-synchronously: %S (%S)" retrieval-done asynch-buffer) |