diff options
| author | Juanma Barranquero | 2005-05-09 08:44:58 +0000 |
|---|---|---|
| committer | Juanma Barranquero | 2005-05-09 08:44:58 +0000 |
| commit | 2b8f53dea47097bbdc16fc636d415f979beffca6 (patch) | |
| tree | 699846ae7bf42fdb11bb2ce196e1a1b7c722e0aa | |
| parent | c7bda15b58de3efcf856786167f11f5b4175e30b (diff) | |
| download | emacs-2b8f53dea47097bbdc16fc636d415f979beffca6.tar.gz emacs-2b8f53dea47097bbdc16fc636d415f979beffca6.zip | |
(string-to-float): Replace `string-to-int' by `string-to-number'.
| -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." | |||
| 423 | (setq power (+ power (- decimal-digits (length digit-string))))) | 423 | (setq power (+ power (- decimal-digits (length digit-string))))) |
| 424 | 424 | ||
| 425 | ; round up and add minus sign, if necessary | 425 | ; round up and add minus sign, if necessary |
| 426 | (f (* (+ (string-to-int digit-string) | 426 | (f (* (+ (string-to-number digit-string) |
| 427 | (if round-up 1 0)) | 427 | (if round-up 1 0)) |
| 428 | (if mant-sign -1 1)))) | 428 | (if mant-sign -1 1)))) |
| 429 | 429 | ||
| @@ -433,7 +433,7 @@ are recognized." | |||
| 433 | (expt 0) (chunks 0) (tens 0) (exponent _f1) | 433 | (expt 0) (chunks 0) (tens 0) (exponent _f1) |
| 434 | (func 'f*)) | 434 | (func 'f*)) |
| 435 | 435 | ||
| 436 | (setq expt (+ (* (string-to-int | 436 | (setq expt (+ (* (string-to-number |
| 437 | (substring expt-subst 0 | 437 | (substring expt-subst 0 |
| 438 | (min expt-digits (length expt-subst)))) | 438 | (min expt-digits (length expt-subst)))) |
| 439 | (if expt-sign -1 1)) | 439 | (if expt-sign -1 1)) |