Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
132d5910
Commit
132d5910
authored
Nov 29, 2007
by
Glenn Morris
Browse files
(url-file-build-filename, url-file): Wrap uses of
efs in (featurep 'xemacs) test.
parent
5f6d8331
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
12 additions
and
10 deletions
+12
-10
lisp/url/url-file.el
lisp/url/url-file.el
+12
-10
No files found.
lisp/url/url-file.el
View file @
132d5910
...
...
@@ -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
)
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment