Mercurial > emacs
changeset 86821:7193e8ecbb2e
(url-file-build-filename, url-file): Wrap uses of
efs in (featurep 'xemacs) test.
| author | Glenn Morris <rgm@gnu.org> |
|---|---|
| date | Thu, 29 Nov 2007 04:32:05 +0000 |
| parents | 3565c4272a41 |
| children | 997ca3d094a9 |
| files | lisp/url/url-file.el |
| diffstat | 1 files changed, 12 insertions(+), 10 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/url/url-file.el Thu Nov 29 04:30:58 2007 +0000 +++ b/lisp/url/url-file.el Thu Nov 29 04:32:05 2007 +0000 @@ -119,8 +119,9 @@ (cond ((featurep 'ange-ftp) (ange-ftp-set-passwd host user pass)) - ((or (featurep 'efs) (featurep 'efs-auto)) - (efs-set-passwd host user pass)) + ((when (featurep 'xemacs) + (or (featurep 'efs) (featurep 'efs-auto) + (efs-set-passwd host user pass)))) (t nil))) @@ -214,14 +215,15 @@ new (current-buffer) callback cbargs) t) - (autoload 'efs-copy-file-internal "efs") - (efs-copy-file-internal filename (efs-ftp-path filename) - new (efs-ftp-path new) - t nil 0 - (list 'url-file-asynch-callback - new (current-buffer) - callback cbargs) - 0 nil)))))) + (when (featurep 'xemacs) + (autoload 'efs-copy-file-internal "efs") + (efs-copy-file-internal filename (efs-ftp-path filename) + new (efs-ftp-path new) + t nil 0 + (list 'url-file-asynch-callback + new (current-buffer) + callback cbargs) + 0 nil))))))) buffer)) (defmacro url-file-create-wrapper (method args)