diff options
| author | Jim Blandy | 1993-01-29 21:32:37 +0000 |
|---|---|---|
| committer | Jim Blandy | 1993-01-29 21:32:37 +0000 |
| commit | 5e43ddf5ffd1313c66df0955caa6f9130ed975ec (patch) | |
| tree | 43b864f3c4bb6bf4aba0de078229dd08be8b46f8 /src | |
| parent | b5e6f936b9b76d07c5ef4831fe36da196774ef22 (diff) | |
| download | emacs-5e43ddf5ffd1313c66df0955caa6f9130ed975ec.tar.gz emacs-5e43ddf5ffd1313c66df0955caa6f9130ed975ec.zip | |
* lread.c (read1): Although digits followed by a '.' are an
integer, a single . by itself (like, say, \.) should be a symbol.
Diffstat (limited to 'src')
| -rw-r--r-- | src/lread.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/lread.c b/src/lread.c index 721955c358b..e2aa7206ab4 100644 --- a/src/lread.c +++ b/src/lread.c | |||
| @@ -1047,7 +1047,7 @@ read1 (readcharfun) | |||
| 1047 | while (p1 != p && (c = *p1) >= '0' && c <= '9') p1++; | 1047 | while (p1 != p && (c = *p1) >= '0' && c <= '9') p1++; |
| 1048 | #ifdef LISP_FLOAT_TYPE | 1048 | #ifdef LISP_FLOAT_TYPE |
| 1049 | /* Integers can have trailing decimal points. */ | 1049 | /* Integers can have trailing decimal points. */ |
| 1050 | if (p1 < p && *p1 == '.') p1++; | 1050 | if (p1 > read_buffer && p1 < p && *p1 == '.') p1++; |
| 1051 | #endif | 1051 | #endif |
| 1052 | if (p1 == p) | 1052 | if (p1 == p) |
| 1053 | /* It is an integer. */ | 1053 | /* It is an integer. */ |