diff options
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/url/ChangeLog | 8 | ||||
| -rw-r--r-- | lisp/url/url-http.el | 5 |
2 files changed, 11 insertions, 2 deletions
diff --git a/lisp/url/ChangeLog b/lisp/url/ChangeLog index 0313379814f..2609ff4ee13 100644 --- a/lisp/url/ChangeLog +++ b/lisp/url/ChangeLog @@ -1,3 +1,11 @@ +2005-07-15 Richard M. Stallman <rms@gnu.org> + + * url-http.el (url-http-parse-headers): Add :redirect arg-pair + when calling url-retrieve, to indicate a redirect. + + * url.el (url-retrieve): The callback function can get an additional + keyword arg pair. + 2005-07-04 Lute Kamstra <lute@gnu.org> Update FSF's address in GPL notices. diff --git a/lisp/url/url-http.el b/lisp/url/url-http.el index 92cbf41e76b..b8bf920e2e5 100644 --- a/lisp/url/url-http.el +++ b/lisp/url/url-http.el @@ -501,8 +501,9 @@ should be shown to the user." (url-request-data url-http-data) (url-request-extra-headers url-http-extra-headers)) (url-retrieve redirect-uri url-callback-function - (cons redirect-uri - (cdr url-callback-arguments))) + (cons :redirect + (cons redirect-uri + url-callback-arguments))) (url-mark-buffer-as-dead (current-buffer)))))) (4 ; Client error ;; 400 Bad Request |