* lread.c (read1): Although digits followed by a '.' are an

[gnu-emacs] / src / lread.c

diff --git a/src/lread.c b/src/lread.c
index 721955c358b1af1b04c299c63ac6150f2803389c..e2aa7206ab4066fcd4d31c974ada580e6c57c08d 100644 (file)
--- a/src/lread.c
+++ b/src/lread.c
@@ -1047,7 +1047,7 @@ read1 (readcharfun)
              while (p1 != p && (c = *p1) >= '0' && c <= '9') p1++;
 #ifdef LISP_FLOAT_TYPE
              /* Integers can have trailing decimal points.  */
-             if (p1 < p && *p1 == '.') p1++;
+             if (p1 > read_buffer && p1 < p && *p1 == '.') p1++;
 #endif
              if (p1 == p)
                /* It is an integer. */