/[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.27 by rms, Tue Jan 22 07:34:07 2002 UTC revision 1.28 by eliz, Fri Feb 8 12:37:02 2002 UTC
# Line 1598  Try to categorize it into one of four ca Line 1598  Try to categorize it into one of four ca
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)
# Line 1633  good, skip, fatal, or unknown." Line 1633  good, skip, fatal, or unknown."
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."

Legend:
Removed from v.1.27  
changed lines
  Added in v.1.28

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