]> code.delx.au - gnu-emacs/commitdiff
* lread.c (read1): Although digits followed by a '.' are an
authorJim Blandy <jimb@redhat.com>
Fri, 29 Jan 1993 21:32:37 +0000 (21:32 +0000)
committerJim Blandy <jimb@redhat.com>
Fri, 29 Jan 1993 21:32:37 +0000 (21:32 +0000)
integer, a single . by itself (like, say, \.) should be a symbol.

src/lread.c

index 721955c358b1af1b04c299c63ac6150f2803389c..e2aa7206ab4066fcd4d31c974ada580e6c57c08d 100644 (file)
@@ -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. */