From d8578e586c0021e97fcd9cd1229fdb32b2d4461e Mon Sep 17 00:00:00 2001
From: "Richard M. Stallman" <rms@gnu.org>
Date: Sun, 3 May 1998 00:50:06 +0000
Subject: [PATCH] (isfloat_string): Don't look at bytes before the string.

---
 src/lread.c | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/src/lread.c b/src/lread.c
index 91b9bffdb6d..44d071e97e2 100644
--- a/src/lread.c
+++ b/src/lread.c
@@ -1995,6 +1995,8 @@ isfloat_string (cp)
 {
   register int state;
   
+  char *start = cp;
+
   state = 0;
   if (*cp == '+' || *cp == '-')
     cp++;
@@ -2030,6 +2032,8 @@ isfloat_string (cp)
       while (*cp >= '0' && *cp <= '9')
 	cp++;
     }
+  else if (cp == start)
+    ;
   else if (cp[-1] == '+' && cp[0] == 'I' && cp[1] == 'N' && cp[2] == 'F')
     {
       state |= EXP_INT;
-- 
2.39.5