Commit 38404229 authored by Gerd Moellmann's avatar Gerd Moellmann

(read1): Accept `?' as symbol constituent, for

compatiblity with XEmacs.
parent 05d07b49
2000-09-01 Gerd Moellmann <gerd@gnu.org>
* lread.c (read1): Accept `?' as symbol constituent, for
compatiblity with XEmacs.
2000-08-31 Stefan Monnier <monnier@cs.yale.edu>
* regex.h (RE_NO_NEWLINE_ANCHOR): New syntax flag.
......
......@@ -2197,25 +2197,26 @@ read1 (readcharfun, pch, first_in_list)
default_label:
if (c <= 040) goto retry;
{
register char *p = read_buffer;
char *p = read_buffer;
int quoted = 0;
{
register char *end = read_buffer + read_buffer_size;
char *end = read_buffer + read_buffer_size;
while (c > 040
&& !(c == '\"' || c == '\'' || c == ';' || c == '?'
&& !(c == '\"' || c == '\'' || c == ';'
|| c == '(' || c == ')'
|| c == '[' || c == ']' || c == '#'
))
|| c == '[' || c == ']' || c == '#'))
{
if (end - p < MAX_MULTIBYTE_LENGTH)
{
register char *new = (char *) xrealloc (read_buffer, read_buffer_size *= 2);
char *new = (char *) xrealloc (read_buffer,
read_buffer_size *= 2);
p += new - read_buffer;
read_buffer += new - read_buffer;
end = read_buffer + read_buffer_size;
}
if (c == '\\')
{
c = READCHAR;
......
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