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

compatiblity with XEmacs.

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;