From a35f88bfcace13c71dd801cdab500df61d8c3f35 Mon Sep 17 00:00:00 2001
From: "Richard M. Stallman" <rms@gnu.org>
Date: Thu, 26 Sep 1996 21:20:05 +0000
Subject: [PATCH] (isfloat_string): Accept E like e.

---
 src/lread.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/lread.c b/src/lread.c
index 1b945fcba5b..8dab8ee74c4 100644
--- a/src/lread.c
+++ b/src/lread.c
@@ -1671,7 +1671,7 @@ isfloat_string (cp)
       while (*cp >= '0' && *cp <= '9')
 	cp++;
     }
-  if (*cp == 'e')
+  if (*cp == 'e' || *cp == 'E')
     {
       state |= E_CHAR;
       cp++;
-- 
2.39.2