Mercurial > hg > xemacs-beta

diff src/data.c @ 363:972bbb6d6ca2 r21-1-11

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-1-11
author cvs
date Mon, 13 Aug 2007 10:59:28 +0200
parents 7df0dd720c89
children 1d62742628b6
line wrap: on
line diff
--- a/src/data.c	Mon Aug 13 10:58:41 2007 +0200
+++ b/src/data.c	Mon Aug 13 10:59:28 2007 +0200
@@ -1192,7 +1192,7 @@
     p++;
 
 #ifdef LISP_FLOAT_TYPE
-  if (isfloat_string (p))
+  if (isfloat_string (p) && b == 10)
     return make_float (atof (p));
 #endif /* LISP_FLOAT_TYPE */