Mercurial > emacs
changeset 54930:ca220b74ea4b
(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 | 42040974ab42 |
| children | 2a15e5a02a89 |
| files | lisp/url/url-file.el |
| diffstat | 1 files changed, 6 insertions(+), 6 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/url/url-file.el Fri Apr 16 21:58:11 2004 +0000 +++ b/lisp/url/url-file.el Fri Apr 16 21:59:12 2004 +0000 @@ -220,14 +220,14 @@ buffer)) (defmacro url-file-create-wrapper (method args) - (` (defalias (quote (, (intern (format "url-ftp-%s" method)))) - (defun (, (intern (format "url-file-%s" method))) (, args) - (, (format "FTP/FILE URL wrapper around `%s' call." method)) - (setq url (url-file-build-filename url)) - (and url ((, method) (,@ (remove '&rest (remove '&optional args))))))))) + `(defalias ',(intern (format "url-ftp-%s" method)) + (defun ,(intern (format "url-file-%s" method)) ,args + ,(format "FTP/FILE URL wrapper around `%s' call." method) + (setq url (url-file-build-filename url)) + (and url (,method ,@(remove '&rest (remove '&optional args))))))) (url-file-create-wrapper file-exists-p (url)) -(url-file-create-wrapper file-attributes (url)) +(url-file-create-wrapper file-attributes (url &optional id-format)) (url-file-create-wrapper file-symlink-p (url)) (url-file-create-wrapper file-readable-p (url)) (url-file-create-wrapper file-writable-p (url))