# HG changeset patch
# User Eli Zaretskii <eliz@gnu.org>
# Date 1013171822 0
# Node ID 992a5c499b474d090de06f37dc8937d92284cd0b
# Parent  4725c09ff43756ff81d52a614583fb240e933278
(ange-ftp-process-handle-line, ange-ftp-set-xfer-size): If the file's
size is a float, divide by 1024 instead of using ash.

diff -r 4725c09ff437 -r 992a5c499b47 lisp/net/ange-ftp.el
--- a/lisp/net/ange-ftp.el	Fri Feb 08 12:32:18 2002 +0000
+++ b/lisp/net/ange-ftp.el	Fri Feb 08 12:37:02 2002 +0000
@@ -1598,10 +1598,10 @@
 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-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,7 +1633,11 @@
 	  (if buf
 	      (save-excursion
 		(set-buffer buf)
-		(setq ange-ftp-xfer-size (ash bytes -10))))))))
+		(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."