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

compatiblity with XEmacs.

diff --git a/src/ChangeLog b/src/ChangeLog
index 27b79e8998ae979d79455cf5aade10b85aed4a21..03b4c78311e06a0d0803dbd717da93ee8d23dff9 100644 (file)
--- 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 f29a5f4a45aecf2eec9bc11eba5599f01fe6ba11..2e618633ae3fe44ff9fb38cfd55340cc6389e43a 100644 (file)
--- 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;