diff options
| author | Karl Heuer <kwzh@gnu.org> | 1994-12-06 00:19:09 +0000 |
|---|---|---|
| committer | Karl Heuer <kwzh@gnu.org> | 1994-12-06 00:19:09 +0000 |
| commit | 5ebc3fec5bc59d622559f908afa00d5c0a795188 (patch) | |
| tree | 70cd38b81d9cb7c9b329a6267d03ed6cb352e36b /lisp/ange-ftp.el | |
| parent | 6c8034f85932a96c5b74a58e025c9a954dbf1d93 (diff) | |
| download | emacs-5ebc3fec5bc59d622559f908afa00d5c0a795188.tar.gz | |
(ange-ftp-set-binary-mode): Ignore hash size if nil.
(ange-ftp-set-ascii-mode): Likewise.
Diffstat (limited to 'lisp/ange-ftp.el')
| -rw-r--r-- | lisp/ange-ftp.el | 8 |
1 files changed, 6 insertions, 2 deletions
diff --git a/lisp/ange-ftp.el b/lisp/ange-ftp.el index f07f1e7e4d1..665aecbaf10 100644 --- a/lisp/ange-ftp.el +++ b/lisp/ange-ftp.el @@ -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"))) |