diff options
| author | Gerd Moellmann <gerd@gnu.org> | 2000-09-01 11:55:39 +0000 |
|---|---|---|
| committer | Gerd Moellmann <gerd@gnu.org> | 2000-09-01 11:55:39 +0000 |
| commit | 38404229887345de92c7ab0da85a5d0f7aaaf585 (patch) | |
| tree | bbe2d73a4c14832dc226fa35ae151d7caf77769c | |
| parent | 05d07b49ef52f3a10e34680aed533387046a7ba8 (diff) | |
| download | emacs-38404229887345de92c7ab0da85a5d0f7aaaf585.tar.gz | |
(read1): Accept `?' as symbol constituent, for
compatiblity with XEmacs.
| -rw-r--r-- | src/ChangeLog | 5 | ||||
| -rw-r--r-- | 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 <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. 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; |