# HG changeset patch
# User Gerd Moellmann <gerd@gnu.org>
# Date 967809315 0
# Node ID 08bb5394dee163fc5520d42cec2a4451a07df57e
# Parent  16b334e9c404c19cd6d0bd2fddc1033fdd005be4
(read1): Accept `?' as symbol constituent, for
compatiblity with XEmacs.

diff -r 16b334e9c404 -r 08bb5394dee1 src/lread.c
--- a/src/lread.c	Thu Aug 31 23:53:09 2000 +0000
+++ b/src/lread.c	Fri Sep 01 11:55:15 2000 +0000
@@ -2197,25 +2197,26 @@
     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;