Mercurial > emacs

diff src/lread.c @ 11172:e1ca77e22c12

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(isfloat_string): Permit trailing space.
author Richard M. Stallman <rms@gnu.org>
date Fri, 31 Mar 1995 19:16:44 +0000
parents aeaaa579d967
children d7f70df00bb0
line wrap: on
line diff
--- a/src/lread.c	Fri Mar 31 19:13:22 1995 +0000
+++ b/src/lread.c	Fri Mar 31 19:16:44 1995 +0000
@@ -1453,7 +1453,7 @@
       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)