From 075027b1957d83a708095ba2d984133fb998a8dc Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Wed, 9 Nov 1994 20:51:58 +0000 Subject: [PATCH] Don't include ctype.h. (isfloat_string, read1): Don't use isdigit. --- src/lread.c | 17 ++++++++--------- 1 file changed, 8 insertions(+), 9 deletions(-) diff --git a/src/lread.c b/src/lread.c index 434a0f4693e..da12f267189 100644 --- a/src/lread.c +++ b/src/lread.c @@ -24,7 +24,6 @@ the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. */ #include #include #include -#include #include #include "lisp.h" @@ -1266,7 +1265,7 @@ read1 (readcharfun, pch) int next_char = READCHAR; UNREAD (next_char); - if (! isdigit (next_char)) + if (! (next_char >= '0' && next_char <= '9')) #endif { *pch = c; @@ -1379,21 +1378,21 @@ isfloat_string (cp) if (*cp == '+' || *cp == '-') cp++; - if (isdigit(*cp)) + if (*cp >= '0' && *cp <= '9') { state |= LEAD_INT; - while (isdigit (*cp)) - cp ++; + while (*cp >= '0' && *cp <= '9') + cp++; } if (*cp == '.') { state |= DOT_CHAR; cp++; } - if (isdigit(*cp)) + if (*cp >= '0' && *cp <= '9') { state |= TRAIL_INT; - while (isdigit (*cp)) + while (*cp >= '0' && *cp <= '9') cp++; } if (*cp == 'e') @@ -1404,10 +1403,10 @@ isfloat_string (cp) if ((*cp == '+') || (*cp == '-')) cp++; - if (isdigit (*cp)) + if (*cp >= '0' && *cp <= '9') { state |= EXP_INT; - while (isdigit (*cp)) + while (*cp >= '0' && *cp <= '9') cp++; } return (*cp == 0 -- 2.39.5