1598 |
good, skip, fatal, or unknown." |
good, skip, fatal, or unknown." |
1599 |
(cond ((string-match ange-ftp-xfer-size-msgs line) |
(cond ((string-match ange-ftp-xfer-size-msgs line) |
1600 |
(setq ange-ftp-xfer-size |
(setq ange-ftp-xfer-size |
1601 |
(ash (string-to-int (substring line |
(/ (string-to-number (substring line |
1602 |
(match-beginning 1) |
(match-beginning 1) |
1603 |
(match-end 1))) |
(match-end 1))) |
1604 |
-10))) |
1024))) |
1605 |
((string-match ange-ftp-skip-msgs line) |
((string-match ange-ftp-skip-msgs line) |
1606 |
t) |
t) |
1607 |
((string-match ange-ftp-good-msgs line) |
((string-match ange-ftp-good-msgs line) |
1633 |
(if buf |
(if buf |
1634 |
(save-excursion |
(save-excursion |
1635 |
(set-buffer buf) |
(set-buffer buf) |
1636 |
(setq ange-ftp-xfer-size (ash bytes -10)))))))) |
(setq ange-ftp-xfer-size |
1637 |
|
;; For very large files, BYTES can be a float. |
1638 |
|
(if (integerp bytes) |
1639 |
|
(ash bytes -10) |
1640 |
|
(/ bytes 1024))))))))) |
1641 |
|
|
1642 |
(defun ange-ftp-process-handle-hash (str) |
(defun ange-ftp-process-handle-hash (str) |
1643 |
"Remove hash marks from STRING and display count so far." |
"Remove hash marks from STRING and display count so far." |