1528 |
good, skip, fatal, or unknown." |
good, skip, fatal, or unknown." |
1529 |
(cond ((string-match ange-ftp-xfer-size-msgs line) |
(cond ((string-match ange-ftp-xfer-size-msgs line) |
1530 |
(setq ange-ftp-xfer-size |
(setq ange-ftp-xfer-size |
1531 |
(ash (string-to-int (substring line |
(/ (string-to-number (substring line |
1532 |
(match-beginning 1) |
(match-beginning 1) |
1533 |
(match-end 1))) |
(match-end 1))) |
1534 |
-10))) |
1024))) |
1535 |
((string-match ange-ftp-skip-msgs line) |
((string-match ange-ftp-skip-msgs line) |
1536 |
t) |
t) |
1537 |
((string-match ange-ftp-good-msgs line) |
((string-match ange-ftp-good-msgs line) |
1563 |
(if buf |
(if buf |
1564 |
(save-excursion |
(save-excursion |
1565 |
(set-buffer buf) |
(set-buffer buf) |
1566 |
(setq ange-ftp-xfer-size (ash bytes -10)))))))) |
(setq ange-ftp-xfer-size |
1567 |
|
;; For very large files, BYTES can be a float. |
1568 |
|
(if (integerp bytes) |
1569 |
|
(ash bytes -10) |
1570 |
|
(/ bytes 1024))))))))) |
1571 |
|
|
1572 |
(defun ange-ftp-process-handle-hash (str) |
(defun ange-ftp-process-handle-hash (str) |
1573 |
"Remove hash marks from STRING and display count so far." |
"Remove hash marks from STRING and display count so far." |