From 3bfd7edbe7d3b56abc5a2ecb097e3cd594e3bf19 Mon Sep 17 00:00:00 2001 From: Jim Blandy Date: Fri, 1 Mar 1991 21:55:53 +0000 Subject: *** empty log message *** --- lisp/emacs-lisp/float.el | 11 ++++------- 1 file changed, 4 insertions(+), 7 deletions(-) (limited to 'lisp/emacs-lisp/float.el') diff --git a/lisp/emacs-lisp/float.el b/lisp/emacs-lisp/float.el index ce2ab10127..68b88f41ec 100644 --- a/lisp/emacs-lisp/float.el +++ b/lisp/emacs-lisp/float.el @@ -386,11 +386,10 @@ Optional second argument non-nil means use scientific notation." ;; 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 @@ are recognized." (funcall func exponent (aref powers-of-10 tens))))) _f0)) ; if invalid, return 0 - - -- cgit v1.2.3