Mercurial > emacs

comparison lisp/url/url-file.el @ 54930:ca220b74ea4b

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(url-file-create-wrapper): Use new backquote syntax. (url-file-file-attributes): Add id-format parameter.
author Stefan Monnier <monnier@iro.umontreal.ca>
date Fri, 16 Apr 2004 21:59:12 +0000
parents 351fde140ac4
children 01934125951e 625059157bad
comparison
equal deleted inserted replaced
54929:42040974ab42 54930:ca220b74ea4b
218 callback cbargs) 218 callback cbargs)
219 0 nil)))))) 219 0 nil))))))
220 buffer)) 220 buffer))
221 221
222 (defmacro url-file-create-wrapper (method args) 222 (defmacro url-file-create-wrapper (method args)
223 (` (defalias (quote (, (intern (format "url-ftp-%s" method)))) 223 `(defalias ',(intern (format "url-ftp-%s" method))
224 (defun (, (intern (format "url-file-%s" method))) (, args) 224 (defun ,(intern (format "url-file-%s" method)) ,args
225 (, (format "FTP/FILE URL wrapper around `%s' call." method)) 225 ,(format "FTP/FILE URL wrapper around `%s' call." method)
226 (setq url (url-file-build-filename url)) 226 (setq url (url-file-build-filename url))
227 (and url ((, method) (,@ (remove '&rest (remove '&optional args))))))))) 227 (and url (,method ,@(remove '&rest (remove '&optional args)))))))
228 228
229 (url-file-create-wrapper file-exists-p (url)) 229 (url-file-create-wrapper file-exists-p (url))
230 (url-file-create-wrapper file-attributes (url)) 230 (url-file-create-wrapper file-attributes (url &optional id-format))
231 (url-file-create-wrapper file-symlink-p (url)) 231 (url-file-create-wrapper file-symlink-p (url))
232 (url-file-create-wrapper file-readable-p (url)) 232 (url-file-create-wrapper file-readable-p (url))
233 (url-file-create-wrapper file-writable-p (url)) 233 (url-file-create-wrapper file-writable-p (url))
234 (url-file-create-wrapper file-executable-p (url)) 234 (url-file-create-wrapper file-executable-p (url))
235 (if (featurep 'xemacs) 235 (if (featurep 'xemacs)