Mercurial > emacs

comparison lisp/url/url-file.el @ 83104:625059157bad

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Merged in changes from CVS trunk. Patches applied: * miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-220 Update from CVS * miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-221 Restore deleted tagline in etc/TUTORIAL.ru * miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-222 Update from CVS * miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-223 Update from CVS * miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-224 Update from CVS * miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-225 Update from CVS git-archimport-id: lorentey@elte.hu--2004/emacs--multi-tty--0--patch-144
author Karoly Lorentey <lorentey@elte.hu>
date Sun, 18 Apr 2004 01:40:02 +0000
parents eb7e8d483840 ca220b74ea4b
children 47f53c5c9620
comparison
equal deleted inserted replaced
83103:efc0b56b83d9 83104:625059157bad
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)