Mercurial > emacs
changeset 62194:dda44460de33
(string-to-float): Replace `string-to-int' by `string-to-number'.
| author | Juanma Barranquero <lekktu@gmail.com> |
|---|---|
| date | Mon, 09 May 2005 08:44:58 +0000 |
| parents | 598f5ebd4f94 |
| children | db28615c678a |
| files | lisp/obsolete/float.el |
| diffstat | 1 files changed, 2 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/obsolete/float.el Mon May 09 01:31:45 2005 +0000 +++ b/lisp/obsolete/float.el Mon May 09 08:44:58 2005 +0000 @@ -423,7 +423,7 @@ (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 @@ (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))