mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-20 18:17:20 +00:00
Code Issues Releases Activity

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

Browse Source 
size is a float, divide by 1024 instead of using ash.
This commit is contained in:
Eli Zaretskii 2002-02-08 12:37:02 +00:00
parent cd01f5b91c
commit 5504af2259
1 changed files with 9 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
lisp/net/ange-ftp.el
View File

@ -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."