Replace `string-to-int' by `string-to-number'.

1 files changed, 2 insertions, 2 deletions

diff --git a/lisp/net/ange-ftp.el b/lisp/net/ange-ftp.el
index 8b4ed89e7b0..98e1bbf68f2 100644
--- a/lisp/net/ange-ftp.el
+++ b/lisp/net/ange-ftp.el
@@ -2109,7 +2109,7 @@ suffix of the form #PORT to specify a non-default port"
                (line (cdr status)))
           (save-match-data
             (if (string-match ange-ftp-hash-mark-msgs line)
-                (let ((size (string-to-int (match-string 1 line))))
+                (let ((size (string-to-number (match-string 1 line))))
                   (setq ange-ftp-ascii-hash-mark-size size
                         ange-ftp-hash-mark-unit (ash size -4))
 
@@ -5082,7 +5082,7 @@ Other orders of $ and _ seem to all work just fine.")
                      (and (string-match regexp name)
                           (setq version
                                 (max version
-                                     (string-to-int (match-string 1 name))))))
+                                     (string-to-number (match-string 1 name))))))
                    files)
                   (setq version (1+ version))
                   (puthash