Show
Ignore:
Timestamp:
09/30/06 09:12:06 (2 years ago)
Author:
miyoshi
Message:

Sync up with Emacs CVS HEAD.

Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved

  • trunk/lisp

    • Property svn:ignore changed from
      *.elc
      MANIFEST
      Makefile
      Makefile.unix
      makefile
      elc.tar.gz
      cus-load.el
      finder-inf.el
      subdirs.el
      loaddefs.el
       to
      *.elc
      MANIFEST
      Makefile
      Makefile.unix
      makefile
      elc.tar.gz
      cus-load.el
      finder-inf.el
      subdirs.el
      loaddefs.el
      pre-mh-loaddefs.el-CMD

  • trunk/lisp/url/url-http.el

    r4161 r4169  
    11521152 
    11531153(defun url-http-head-file-attributes (url &optional id-format) 
    1154   (let ((buffer (url-http-head url)) 
    1155         (attributes nil)) 
     1154  (let ((buffer (url-http-head url))) 
    11561155    (when buffer 
    1157       (setq attributes (make-list 11 nil)) 
    1158       (setf (nth 1 attributes) 1)       ; Number of links to file 
    1159       (setf (nth 2 attributes) 0)       ; file uid 
    1160       (setf (nth 3 attributes) 0)       ; file gid 
    1161       (setf (nth 7 attributes)          ; file size 
    1162             (url-http-symbol-value-in-buffer 'url-http-content-length 
    1163                                              buffer -1)) 
    1164       (setf (nth 8 attributes) (eval-when-compile (make-string 10 ?-))) 
    1165       (kill-buffer buffer)) 
    1166     attributes)) 
     1156      (prog1 
     1157          (list 
     1158           nil                          ;dir / link / normal file 
     1159           1                            ;number of links to file. 
     1160           0 0                          ;uid ; gid 
     1161           nil nil nil                  ;atime ; mtime ; ctime 
     1162           (url-http-symbol-value-in-buffer 'url-http-content-length 
     1163                                            buffer -1) 
     1164           (eval-when-compile (make-string 10 ?-)) 
     1165           nil nil nil)          ;whether gid would change ; inode ; device. 
     1166        (kill-buffer buffer))))) 
    11671167 
    11681168;;;###autoload