From: Kenichi Handa <handa@m17n.org>
Date: Mon, 12 Oct 1998 11:54:43 +0000 (+0000)
Subject: (Fstring_to_number): Don't recognize floating point if base is not 10.
X-Git-Tag: emacs-20.4~1529
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=8e36ae7f46fddf057bde89a58d18749dc6d8cfbb;p=emacs.git

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

diff --git a/src/data.c b/src/data.c
index 7f8f30ce088..f704c8fa049 100644
--- a/src/data.c
+++ b/src/data.c
@@ -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 */