Mercurial > emacs
diff src/lread.c @ 49856:04bdf9a77388
(read1): Fix last change; "`" is not always special.
| author | Kim F. Storm <storm@cua.dk> |
|---|---|
| date | Tue, 18 Feb 2003 16:11:17 +0000 |
| parents | 3df99c93b6a4 |
| children | 38c14af619da |
line wrap: on
line diff
--- a/src/lread.c Tue Feb 18 16:10:17 2003 +0000 +++ b/src/lread.c Tue Feb 18 16:11:17 2003 +0000 @@ -2271,13 +2271,15 @@ UNREAD (next_next_char); ok = (next_next_char <= 040 - || index ("\"'`;([#?", next_next_char) + || index ("\"';([#?", next_next_char) + || (!first_in_list && next_next_char == '`') || (new_backquote_flag && next_next_char == ',')); } else { ok = (next_char <= 040 - || index ("\"'`;()[]#", next_char) + || index ("\"';()[]#", next_char) + || (!first_in_list && next_char == '`') || (new_backquote_flag && next_char == ',')); } UNREAD (next_char); @@ -2436,7 +2438,8 @@ UNREAD (next_char); if (next_char <= 040 - || index ("\"'`;([#?", next_char) + || index ("\"';([#?", next_char) + || (!first_in_list && next_char == '`') || (new_backquote_flag && next_char == ',')) { *pch = c; @@ -2458,7 +2461,8 @@ char *end = read_buffer + read_buffer_size; while (c > 040 - && !index ("\"'`;()[]#", c) + && !index ("\"';()[]#", c) + && !(!first_in_list && c == '`') && !(new_backquote_flag && c == ',')) { if (end - p < MAX_MULTIBYTE_LENGTH)