[Emacs-diffs] Changes to emacs/lisp/net/ange-ftp.el

[Eli Zaretskii]

Index: emacs/lisp/net/ange-ftp.el
diff -c emacs/lisp/net/ange-ftp.el:1.27 emacs/lisp/net/ange-ftp.el:1.28
*** emacs/lisp/net/ange-ftp.el:1.27     Tue Jan 22 02:34:07 2002
--- emacs/lisp/net/ange-ftp.el  Fri Feb  8 07:37:02 2002
***************
*** 1598,1607 ****
  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-match ange-ftp-skip-msgs line)
         t)
        ((string-match ange-ftp-good-msgs line)
--- 1598,1607 ----
  good, skip, fatal, or unknown."
    (cond ((string-match ange-ftp-xfer-size-msgs line)
         (setq ange-ftp-xfer-size
!              (/ (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,1639 ****
          (if buf
              (save-excursion
                (set-buffer buf)
!               (setq ange-ftp-xfer-size (ash bytes -10))))))))
  
  (defun ange-ftp-process-handle-hash (str)
    "Remove hash marks from STRING and display count so far."
--- 1633,1643 ----
          (if buf
              (save-excursion
                (set-buffer buf)
!               (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."