Mercurial > emacs
diff lisp/url/url-http.el @ 54932:fd6856033c18
(url-http-head-file-attributes, url-http-file-attributes):
Add id-format parameter.
| author | Stefan Monnier <monnier@iro.umontreal.ca> |
|---|---|
| date | Fri, 16 Apr 2004 22:01:56 +0000 |
| parents | ccfdda7b76d2 |
| children | 8da26294b738 625059157bad |
line wrap: on
line diff
--- a/lisp/url/url-http.el Fri Apr 16 22:00:40 2004 +0000 +++ b/lisp/url/url-http.el Fri Apr 16 22:01:56 2004 +0000 @@ -4,6 +4,7 @@ ;; Author: Bill Perry <wmperry@gnu.org> ;; 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 @@ ;;;###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 @@ 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)