2278 |
UNREAD (next_next_char); |
UNREAD (next_next_char); |
2279 |
|
|
2280 |
ok = (next_next_char <= 040 |
ok = (next_next_char <= 040 |
2281 |
|| index ("\"';([#?", next_next_char) |
|| (next_next_char < 0200 |
2282 |
|| (!first_in_list && next_next_char == '`') |
&& (index ("\"';([#?", next_next_char) |
2283 |
|| (new_backquote_flag && next_next_char == ',')); |
|| (!first_in_list && next_next_char == '`') |
2284 |
|
|| (new_backquote_flag && next_next_char == ',')))); |
2285 |
} |
} |
2286 |
else |
else |
2287 |
{ |
{ |
2288 |
ok = (next_char <= 040 |
ok = (next_char <= 040 |
2289 |
|| index ("\"';()[]#?", next_char) |
|| (next_char < 0200 |
2290 |
|| (!first_in_list && next_char == '`') |
&& (index ("\"';()[]#?", next_char) |
2291 |
|| (new_backquote_flag && next_char == ',')); |
|| (!first_in_list && next_char == '`') |
2292 |
|
|| (new_backquote_flag && next_char == ',')))); |
2293 |
} |
} |
2294 |
UNREAD (next_char); |
UNREAD (next_char); |
2295 |
if (!ok) |
if (!ok) |
2447 |
UNREAD (next_char); |
UNREAD (next_char); |
2448 |
|
|
2449 |
if (next_char <= 040 |
if (next_char <= 040 |
2450 |
|| index ("\"';([#?", next_char) |
|| (next_char < 0200 |
2451 |
|| (!first_in_list && next_char == '`') |
&& index ("\"';([#?", next_char) |
2452 |
|| (new_backquote_flag && next_char == ',')) |
|| (!first_in_list && next_char == '`') |
2453 |
|
|| (new_backquote_flag && next_char == ','))) |
2454 |
{ |
{ |
2455 |
*pch = c; |
*pch = c; |
2456 |
return Qnil; |
return Qnil; |
2471 |
char *end = read_buffer + read_buffer_size; |
char *end = read_buffer + read_buffer_size; |
2472 |
|
|
2473 |
while (c > 040 |
while (c > 040 |
2474 |
&& !index ("\"';()[]#", c) |
&& (c >= 0200 |
2475 |
&& !(!first_in_list && c == '`') |
|| (!index ("\"';()[]#", c) |
2476 |
&& !(new_backquote_flag && c == ',')) |
&& !(!first_in_list && c == '`') |
2477 |
|
&& !(new_backquote_flag && c == ',')))) |
2478 |
{ |
{ |
2479 |
if (end - p < MAX_MULTIBYTE_LENGTH) |
if (end - p < MAX_MULTIBYTE_LENGTH) |
2480 |
{ |
{ |