mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-28 08:11:05 -08:00
Code Issues Projects Releases Wiki Activity

(url-file-create-wrapper): Use new backquote syntax.

Browse source 
(url-file-file-attributes): Add id-format parameter.
This commit is contained in:
Stefan Monnier 2004-04-16 21:59:12 +00:00
parent f1bfaf653b
commit ca000afff9
1 changed files with 6 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

12
lisp/url/url-file.el
View file

@ -220,14 +220,14 @@ to them."
buffer)) buffer))
(defmacro url-file-create-wrapper (method args) (defmacro url-file-create-wrapper (method args)
(` (defalias (quote (, (intern (format "url-ftp-%s" method)))) `(defalias ',(intern (format "url-ftp-%s" method))
(defun (, (intern (format "url-file-%s" method))) (, args) (defun ,(intern (format "url-file-%s" method)) ,args
(, (format "FTP/FILE URL wrapper around `%s' call." method)) ,(format "FTP/FILE URL wrapper around `%s' call." method)
(setq url (url-file-build-filename url)) (setq url (url-file-build-filename url))
(and url ((, method) (,@ (remove '&rest (remove '&optional args))))))))) (and url (,method ,@(remove '&rest (remove '&optional args)))))))
(url-file-create-wrapper file-exists-p (url)) (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-symlink-p (url))
(url-file-create-wrapper file-readable-p (url)) (url-file-create-wrapper file-readable-p (url))
(url-file-create-wrapper file-writable-p (url)) (url-file-create-wrapper file-writable-p (url))