diff options
Diffstat (limited to 'lisp/url/url-file.el')
| -rw-r--r-- | lisp/url/url-file.el | 28 |
1 files changed, 18 insertions, 10 deletions
diff --git a/lisp/url/url-file.el b/lisp/url/url-file.el index c361016856b..f9c9cd33d04 100644 --- a/lisp/url/url-file.el +++ b/lisp/url/url-file.el @@ -86,6 +86,12 @@ to them." (error nil))) (apply func args)))) +(declare-function ange-ftp-set-passwd "ange-ftp" (host user passwd)) +(declare-function ange-ftp-copy-file-internal "ange-ftp" + (filename newname ok-if-already-exists + keep-date &optional msg cont nowait)) +(declare-function url-generate-unique-filename "url-util" (&optional fmt)) + (defun url-file-build-filename (url) (if (not (vectorp url)) (setq url (url-generic-parse-url url))) @@ -113,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))) @@ -208,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) |