From ca000afff90dc18c91806de705760c2705054b3c Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Fri, 16 Apr 2004 21:59:12 +0000 Subject: [PATCH] (url-file-create-wrapper): Use new backquote syntax. (url-file-file-attributes): Add id-format parameter. --- lisp/url/url-file.el | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) diff --git a/lisp/url/url-file.el b/lisp/url/url-file.el index 4dfac46b651..77c2e74555f 100644 --- a/lisp/url/url-file.el +++ b/lisp/url/url-file.el @@ -220,14 +220,14 @@ to them." 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)) -- 2.39.2