From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Fri, 16 Apr 2004 22:01:56 +0000 (+0000)
Subject: (url-http-head-file-attributes, url-http-file-attributes):
X-Git-Tag: ttn-vms-21-2-B4~6780
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=3f19601e610ae5c1b8de61f6b4f4aec0b9b12dac;p=emacs.git

(url-http-head-file-attributes, url-http-file-attributes):
Add id-format parameter.
---

diff --git a/lisp/url/url-http.el b/lisp/url/url-http.el
index b2f797d09c7..200025c3804 100644
--- a/lisp/url/url-http.el
+++ b/lisp/url/url-http.el
@@ -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 @@ 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)