procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(url-file-build-filename, url-file): Wrap uses of

Browse source 
efs in (featurep 'xemacs) test.
This commit is contained in:
Glenn Morris 2007-11-29 04:32:05 +00:00
parent 5f6d833159
commit 132d5910a0
1 changed files with 12 additions and 10 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -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)