diff options
| author | Glenn Morris <rgm@gnu.org> | 2007-11-29 04:32:05 +0000 |
|---|---|---|
| committer | Glenn Morris <rgm@gnu.org> | 2007-11-29 04:32:05 +0000 |
| commit | 132d5910a04491bac9326bc89ed7401855a84777 (patch) | |
| tree | 70625ec9a266a2a2ce5b6700dd399c5bb4bc635b /lisp/url | |
| parent | 5f6d833159f582b2773cbe25681377b2702f05a9 (diff) | |
| download | emacs-132d5910a04491bac9326bc89ed7401855a84777.tar.gz | |
(url-file-build-filename, url-file): Wrap uses of
efs in (featurep 'xemacs) test.
Diffstat (limited to 'lisp/url')
| -rw-r--r-- | lisp/url/url-file.el | 22 |
1 files changed, 12 insertions, 10 deletions
diff --git a/lisp/url/url-file.el b/lisp/url/url-file.el index 9af3bbb42b4..cedf98a3ad3 100644 --- a/lisp/url/url-file.el +++ b/lisp/url/url-file.el @@ -119,8 +119,9 @@ to them." (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 @@ to them." 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) |