mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-04-27 08:43:40 -07:00
Code Issues Projects Releases Wiki Activity

(url-http-head-file-attributes): Add device "info".

Browse source
This commit is contained in:
Stefan Monnier 2006-09-20 17:35:13 +00:00
parent 02bb2aabef
commit 162fbe11f5
2 changed files with 18 additions and 12 deletions
Download patch file Download diff file Expand all files Collapse all files

6
lisp/url/ChangeLog
View file

@ -1,3 +1,9 @@
2006-09-20 Stefan Monnier <monnier@iro.umontreal.ca>
* url-dav.el (url-dav-file-attributes): Simplify.
* url-http.el (url-http-head-file-attributes): Add device "info".
2006-09-18 Michael Olson <mwolson@gnu.org>
* url-methods.el (url-scheme-register-proxy): Handle case where

24
lisp/url/url-http.el
View file

@ -1151,19 +1151,19 @@ CBARGS as the arguments."
(defalias 'url-http-file-readable-p 'url-http-file-exists-p)
(defun url-http-head-file-attributes (url &optional id-format)
(let ((buffer (url-http-head url))
(attributes nil))
(let ((buffer (url-http-head url)))
(when buffer
(setq attributes (make-list 11 nil))
(setf (nth 1 attributes) 1) ; Number of links to file
(setf (nth 2 attributes) 0) ; file uid
(setf (nth 3 attributes) 0) ; file gid
(setf (nth 7 attributes) ; file size
(url-http-symbol-value-in-buffer 'url-http-content-length
buffer -1))
(setf (nth 8 attributes) (eval-when-compile (make-string 10 ?-)))
(kill-buffer buffer))
attributes))
(prog1
(list
nil ;dir / link / normal file
1 ;number of links to file.
0 0 ;uid ; gid
nil nil nil ;atime ; mtime ; ctime
(url-http-symbol-value-in-buffer 'url-http-content-length
buffer -1)
(eval-when-compile (make-string 10 ?-))
nil nil nil) ;whether gid would change ; inode ; device.
(kill-buffer buffer)))))
;;;###autoload
(defun url-http-file-attributes (url &optional id-format)