Mercurial > emacs
diff lisp/emacs-lisp/float.el @ 202:ae5ace097df2
*** empty log message ***
author | Jim Blandy <jimb@redhat.com> |
---|---|
date | Fri, 01 Mar 1991 21:55:53 +0000 |
parents | 186ca5a09577 |
children | 4cd7543be581 |
line wrap: on
line diff
--- a/lisp/emacs-lisp/float.el Thu Feb 28 21:45:11 1991 +0000 +++ b/lisp/emacs-lisp/float.el Fri Mar 01 21:55:53 1991 +0000 @@ -386,11 +386,10 @@ ;; digits of the exponent. (defun string-to-float (str) "Convert the string to a floating point number. -Accepts a decimal string in scientific notation, -with exponent preceded by either E or e. -Only the 6 most significant digits of the integer and fractional parts -are used; only the first two digits of the exponent are used. -Negative signs preceding both the decimal number and the exponent +Accepts a decimal string in scientific notation, with exponent preceded +by either E or e. Only the six most significant digits of the integer +and fractional parts are used; only the first two digits of the exponent +are used. Negative signs preceding both the decimal number and the exponent are recognized." (if (string-match floating-point-regexp str 0) @@ -447,5 +446,3 @@ (funcall func exponent (aref powers-of-10 tens))))) _f0)) ; if invalid, return 0 - -