Mercurial > hg > xemacs-beta

comparison lisp/url/url-file.el @ 2:ac2d302a0011 r19-15b2

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15b2
author cvs
date Mon, 13 Aug 2007 08:46:35 +0200
parents 376386a54a3c
children
comparison
equal deleted inserted replaced
1:c0c6a60d29db 2:ac2d302a0011
116 attr (file-attributes file) 116 attr (file-attributes file)
117 file (car files) 117 file (car files)
118 mod-time (nth 5 attr) 118 mod-time (nth 5 attr)
119 size (nth 7 attr) 119 size (nth 7 attr)
120 typ (or (mm-extension-to-mime (url-file-extension file)) "")) 120 typ (or (mm-extension-to-mime (url-file-extension file)) ""))
121 (setq file (url-hexify-string file))
121 (if (equal '(0 0) mod-time) ; Set to null if unknown or 122 (if (equal '(0 0) mod-time) ; Set to null if unknown or
122 (setq mod-time "Unknown ") 123 (setq mod-time "Unknown ")
123 (setq mod-time (current-time-string mod-time))) 124 (setq mod-time (current-time-string mod-time)))
124 (if (or (equal size 0) (equal size -1) (null size)) 125 (if (or (equal size 0) (equal size -1) (null size))
125 (setq size " -") 126 (setq size " -")