Mercurial > emacs
comparison src/lread.c @ 49860:38c14af619da
(read1): Allow "?" after a character constant.
| author | Kim F. Storm <storm@cua.dk> |
|---|---|
| date | Tue, 18 Feb 2003 22:45:32 +0000 |
| parents | 04bdf9a77388 |
| children | fc287c6fe322 |
comparison
equal
deleted
inserted
replaced
| 49859:c6bacc76cfb6 | 49860:38c14af619da |
|---|---|
| 2276 || (new_backquote_flag && next_next_char == ',')); | 2276 || (new_backquote_flag && next_next_char == ',')); |
| 2277 } | 2277 } |
| 2278 else | 2278 else |
| 2279 { | 2279 { |
| 2280 ok = (next_char <= 040 | 2280 ok = (next_char <= 040 |
| 2281 || index ("\"';()[]#", next_char) | 2281 || index ("\"';()[]#?", next_char) |
| 2282 || (!first_in_list && next_char == '`') | 2282 || (!first_in_list && next_char == '`') |
| 2283 || (new_backquote_flag && next_char == ',')); | 2283 || (new_backquote_flag && next_char == ',')); |
| 2284 } | 2284 } |
| 2285 UNREAD (next_char); | 2285 UNREAD (next_char); |
| 2286 if (!ok) | 2286 if (!ok) |