mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-03 14:10:47 -08:00
Code Issues Projects Releases Wiki Activity

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

Browse source
This commit is contained in:
Juanma Barranquero 2005-05-09 08:44:58 +00:00
parent c7bda15b58
commit 2b8f53dea4
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
lisp/obsolete/float.el
View file

@ -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))