diff options
| author | Juanma Barranquero <lekktu@gmail.com> | 2005-05-09 08:44:58 +0000 |
|---|---|---|
| committer | Juanma Barranquero <lekktu@gmail.com> | 2005-05-09 08:44:58 +0000 |
| commit | 2b8f53dea47097bbdc16fc636d415f979beffca6 (patch) | |
| tree | 699846ae7bf42fdb11bb2ce196e1a1b7c722e0aa /lisp/obsolete | |
| parent | c7bda15b58de3efcf856786167f11f5b4175e30b (diff) | |
| download | emacs-2b8f53dea47097bbdc16fc636d415f979beffca6.tar.gz | |
(string-to-float): Replace `string-to-int' by `string-to-number'.
Diffstat (limited to 'lisp/obsolete')
| -rw-r--r-- | lisp/obsolete/float.el | 4 |
1 files changed, 2 insertions, 2 deletions
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)) |