Mercurial > hg > xemacs-beta

comparison 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
comparison
equal deleted inserted replaced
362:1e474c183006 363:972bbb6d6ca2
1190 atoi do this anyway, so we might as well make Emacs lisp consistent. */ 1190 atoi do this anyway, so we might as well make Emacs lisp consistent. */
1191 while (*p == ' ' || *p == '\t') 1191 while (*p == ' ' || *p == '\t')
1192 p++; 1192 p++;
1193 1193
1194 #ifdef LISP_FLOAT_TYPE 1194 #ifdef LISP_FLOAT_TYPE
1195 if (isfloat_string (p)) 1195 if (isfloat_string (p) && b == 10)
1196 return make_float (atof (p)); 1196 return make_float (atof (p));
1197 #endif /* LISP_FLOAT_TYPE */ 1197 #endif /* LISP_FLOAT_TYPE */
1198 1198
1199 if (b == 10) 1199 if (b == 10)
1200 { 1200 {