mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-29 19:48:19 +00:00
Code Issues Releases Activity

(Fstring_to_number): Don't recognize floating point if base is not 10.

Browse Source
This commit is contained in:
Kenichi Handa 1998-10-12 11:54:43 +00:00
parent b0648a0090
commit 8e36ae7f46
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/data.c
View File

@ -2108,7 +2108,7 @@ It ignores leading spaces and tabs.\n\
\n\
If BASE, interpret STRING as a number in that base. If BASE isn't\n\
present, base 10 is used. BASE must be between 2 and 16 (inclusive).\n\
Floating point numbers always use base 10.")
If the base used is not 10, floating point is not recognized.")
(string, base)
register Lisp_Object string, base;
{
@ -2144,7 +2144,7 @@ Floating point numbers always use base 10.")
p++;
#ifdef LISP_FLOAT_TYPE
if (isfloat_string (p))
if (isfloat_string (p) && b == 10)
return make_float (negative * atof (p));
#endif /* LISP_FLOAT_TYPE */