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
cf18c844
Commit
cf18c844
authored
Dec 06, 1994
by
Karl Heuer
Browse files
(ange-ftp-set-binary-mode): Ignore hash size if nil.
(ange-ftp-set-ascii-mode): Likewise.
parent
19993c54
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
6 additions
and
2 deletions
+6
-2
lisp/ange-ftp.el
lisp/ange-ftp.el
+6
-2
No files found.
lisp/ange-ftp.el
View file @
cf18c844
...
...
@@ -2690,7 +2690,9 @@ this also returns nil."
(
ange-ftp-error
host
user
(
concat
"BINARY failed: "
(
cdr
result
)))
(
save-excursion
(
set-buffer
(
process-buffer
(
ange-ftp-get-process
host
user
)))
(
setq
ange-ftp-hash-mark-unit
(
ash
ange-ftp-binary-hash-mark-size
-4
))))))
(
and
ange-ftp-binary-hash-mark-size
(
setq
ange-ftp-hash-mark-unit
(
ash
ange-ftp-binary-hash-mark-size
-4
)))))))
(
defun
ange-ftp-set-ascii-mode
(
host
user
)
"Tell the ftp process for the given HOST & USER to switch to ascii mode."
...
...
@@ -2699,7 +2701,9 @@ this also returns nil."
(
ange-ftp-error
host
user
(
concat
"ASCII failed: "
(
cdr
result
)))
(
save-excursion
(
set-buffer
(
process-buffer
(
ange-ftp-get-process
host
user
)))
(
setq
ange-ftp-hash-mark-unit
(
ash
ange-ftp-ascii-hash-mark-size
-4
))))))
(
and
ange-ftp-ascii-hash-mark-size
(
setq
ange-ftp-hash-mark-unit
(
ash
ange-ftp-ascii-hash-mark-size
-4
)))))))
(
defun
ange-ftp-cd
(
host
user
dir
)
(
let
((
result
(
ange-ftp-send-cmd
host
user
(
list
'cd
dir
)
"Doing CD"
)))
...
...
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