From 37579d7c57bc27d6e10561021d312dc35eff2e49 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Fri, 31 Mar 1995 19:16:44 +0000 Subject: [PATCH] (isfloat_string): Permit trailing space. --- src/lread.c | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/lread.c b/src/lread.c index 1af746ad9ef..267db735404 100644 --- a/src/lread.c +++ b/src/lread.c @@ -1453,7 +1453,7 @@ isfloat_string (cp) while (*cp >= '0' && *cp <= '9') cp++; } - return (*cp == 0 + return (((*cp == 0) || (*cp == ' ') || (*cp == '\t') || (*cp == '\n') || (*cp == '\r') || (*cp == '\f')) && (state == (LEAD_INT|DOT_CHAR|TRAIL_INT) || state == (DOT_CHAR|TRAIL_INT) || state == (LEAD_INT|E_CHAR|EXP_INT) -- 2.39.5