From 38404229887345de92c7ab0da85a5d0f7aaaf585 Mon Sep 17 00:00:00 2001 From: Gerd Moellmann Date: Fri, 1 Sep 2000 11:55:39 +0000 Subject: [PATCH] (read1): Accept `?' as symbol constituent, for compatiblity with XEmacs. --- src/ChangeLog | 5 +++++ src/lread.c | 13 +++++++------ 2 files changed, 12 insertions(+), 6 deletions(-) diff --git a/src/ChangeLog b/src/ChangeLog index 27b79e8998a..03b4c78311e 100644 --- a/src/ChangeLog +++ b/src/ChangeLog @@ -1,3 +1,8 @@ +2000-09-01 Gerd Moellmann + + * lread.c (read1): Accept `?' as symbol constituent, for + compatiblity with XEmacs. + 2000-08-31 Stefan Monnier * regex.h (RE_NO_NEWLINE_ANCHOR): New syntax flag. diff --git a/src/lread.c b/src/lread.c index f29a5f4a45a..2e618633ae3 100644 --- a/src/lread.c +++ b/src/lread.c @@ -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; -- 2.39.2