From: Richard M. Stallman <rms@gnu.org>
Date: Fri, 31 Mar 1995 19:16:44 +0000 (+0000)
Subject: (isfloat_string): Permit trailing space.
X-Git-Tag: emacs-19.34~4686
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=37579d7c57bc27d6e10561021d312dc35eff2e49;p=emacs.git

(isfloat_string): Permit trailing space.
---

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)