diff options
author | Stefan Monnier <[email protected]> | 2004-04-16 22:01:56 +0000 |
---|---|---|
committer | Stefan Monnier <[email protected]> | 2004-04-16 22:01:56 +0000 |
commit | 3f19601e610ae5c1b8de61f6b4f4aec0b9b12dac (patch) | |
tree | 75ee7a07c132b386a3efa94c5c06b3852b9a0776 /lisp/url/url-http.el | |
parent | c7389b5db858074bb07c352f4ea6b163e0de4a91 (diff) |
(url-http-head-file-attributes, url-http-file-attributes):
Add id-format parameter.
Diffstat (limited to 'lisp/url/url-http.el')
-rw-r--r-- | lisp/url/url-http.el | 9 |
1 files changed, 5 insertions, 4 deletions
diff --git a/lisp/url/url-http.el b/lisp/url/url-http.el index b2f797d09c..200025c380 100644 --- a/lisp/url/url-http.el +++ b/lisp/url/url-http.el @@ -4,6 +4,7 @@ ;; Author: Bill Perry <[email protected]> ;; Keywords: comm, data, processes + ;; This file is part of GNU Emacs. ;; ;; GNU Emacs is free software; you can redistribute it and/or modify @@ -1120,7 +1121,7 @@ CBARGS as the arguments." ;;;###autoload (defalias 'url-http-file-readable-p 'url-http-file-exists-p) -(defun url-http-head-file-attributes (url) +(defun url-http-head-file-attributes (url &optional id-format) (let ((buffer (url-http-head url)) (attributes nil)) (when buffer @@ -1136,10 +1137,10 @@ CBARGS as the arguments." attributes)) ;;;###autoload -(defun url-http-file-attributes (url) +(defun url-http-file-attributes (url &optional id-format) (if (url-dav-supported-p url) - (url-dav-file-attributes url) - (url-http-head-file-attributes url))) + (url-dav-file-attributes url id-format) + (url-http-head-file-attributes url id-format))) ;;;###autoload (defun url-http-options (url) |