Commit 5504af22 authored by Eli Zaretskii's avatar Eli Zaretskii
Browse files

(ange-ftp-process-handle-line, ange-ftp-set-xfer-size): If the file's

size is a float, divide by 1024 instead of using ash.
parent cd01f5b9
......@@ -1598,10 +1598,10 @@ Try to categorize it into one of four categories:
good, skip, fatal, or unknown."
(cond ((string-match ange-ftp-xfer-size-msgs line)
(setq ange-ftp-xfer-size
(ash (string-to-int (substring line
(match-beginning 1)
(match-end 1)))
-10)))
(/ (string-to-number (substring line
(match-beginning 1)
(match-end 1)))
1024)))
((string-match ange-ftp-skip-msgs line)
t)
((string-match ange-ftp-good-msgs line)
......@@ -1633,7 +1633,11 @@ good, skip, fatal, or unknown."
(if buf
(save-excursion
(set-buffer buf)
(setq ange-ftp-xfer-size (ash bytes -10))))))))
(setq ange-ftp-xfer-size
;; For very large files, BYTES can be a float.
(if (integerp bytes)
(ash bytes -10)
(/ bytes 1024)))))))))
(defun ange-ftp-process-handle-hash (str)
"Remove hash marks from STRING and display count so far."
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment