From: Juanma Barranquero <lekktu@gmail.com>
Date: Mon, 9 May 2005 08:44:58 +0000 (+0000)
Subject: (string-to-float): Replace `string-to-int' by `string-to-number'.
X-Git-Tag: ttn-vms-21-2-B4~428
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=2b8f53dea47097bbdc16fc636d415f979beffca6;p=emacs.git

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

diff --git a/lisp/obsolete/float.el b/lisp/obsolete/float.el
index 4b327cdb90e..624e0eb0add 100644
--- 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))