(string-to-float): Replace `string-to-int' by `string-to-number'.

diff --git a/lisp/obsolete/float.el b/lisp/obsolete/float.el
index 4b327cdb90e59e57df01763c6a10109b72a54ddf..624e0eb0add06e0f9d487ea4b33fa3b7dffc02e4 100644 (file)
--- a/lisp/obsolete/float.el
+++ b/lisp/obsolete/float.el
@@ -423,7 +423,7 @@ are recognized."
             (setq power (+ power (- decimal-digits (length digit-string)))))
 
           ; round up and add minus sign, if necessary
-          (f (* (+ (string-to-int digit-string)
+          (f (* (+ (string-to-number digit-string)
                    (if round-up 1 0))
                 (if mant-sign -1 1))))
 
@@ -433,7 +433,7 @@ are recognized."
                (expt 0) (chunks 0) (tens 0) (exponent _f1)
                (func 'f*))
 
-          (setq expt (+ (* (string-to-int
+          (setq expt (+ (* (string-to-number
                             (substring expt-subst 0
                                        (min expt-digits (length expt-subst))))
                            (if expt-sign -1 1))