/[emacs]/emacs/lisp/net/ange-ftp.el
ViewVC logotype

Diff of /emacs/lisp/net/ange-ftp.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.14.4.4 by monnier, Mon Jan 14 12:45:35 2002 UTC revision 1.14.4.5 by eliz, Fri Feb 8 12:46:59 2002 UTC
# Line 1528  Try to categorize it into one of four ca Line 1528  Try to categorize it into one of four ca
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)
# Line 1563  good, skip, fatal, or unknown." Line 1563  good, skip, fatal, or unknown."
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."

Legend:
Removed from v.1.14.4.4  
changed lines
  Added in v.1.14.4.5

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26