Commit cce5761e authored by Kim F. Storm's avatar Kim F. Storm
Browse files

(read1): Fix last change; "`" is not always special.

parent 4cd519a7
......@@ -2271,13 +2271,15 @@ read1 (readcharfun, pch, first_in_list)
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 @@ read1 (readcharfun, pch, first_in_list)
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 @@ read1 (readcharfun, pch, first_in_list)
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)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment