diff options
| author | Gerd Moellmann | 2000-04-27 19:10:15 +0000 |
|---|---|---|
| committer | Gerd Moellmann | 2000-04-27 19:10:15 +0000 |
| commit | 035eec486e617046cffd65a0086db3fec4edb05f (patch) | |
| tree | 32a5ff3a2bc30530ae715418e23a0b38881d91f4 /src | |
| parent | 7e0ba6da56f6a557f135e0ca65835b473db8a0e1 (diff) | |
| download | emacs-035eec486e617046cffd65a0086db3fec4edb05f.tar.gz emacs-035eec486e617046cffd65a0086db3fec4edb05f.zip | |
(read1): Don't treat period followed by certain
characters as symbol start.
Diffstat (limited to 'src')
| -rw-r--r-- | src/lread.c | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/src/lread.c b/src/lread.c index 3235be321d7..67f6c956fe1 100644 --- a/src/lread.c +++ b/src/lread.c | |||
| @@ -2165,7 +2165,8 @@ read1 (readcharfun, pch, first_in_list) | |||
| 2165 | int next_char = READCHAR; | 2165 | int next_char = READCHAR; |
| 2166 | UNREAD (next_char); | 2166 | UNREAD (next_char); |
| 2167 | 2167 | ||
| 2168 | if (next_char <= 040) | 2168 | if (next_char <= 040 |
| 2169 | || index ("\"'`,(", next_char)) | ||
| 2169 | { | 2170 | { |
| 2170 | *pch = c; | 2171 | *pch = c; |
| 2171 | return Qnil; | 2172 | return Qnil; |