procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

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

Browse source 
compatiblity with XEmacs.
This commit is contained in:
Gerd Moellmann 2000-09-01 11:55:39 +00:00
parent 05d07b49ef
commit 3840422988
2 changed files with 12 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
src/ChangeLog
View file

@ -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.

13
src/lread.c
View file

@ -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;