(read1): Allow "?" after a character constant.

2 files changed, 3 insertions, 2 deletions

diff --git a/src/ChangeLog b/src/ChangeLog
index 5bef6ada00f..04fce4d9811 100644
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -11,7 +11,8 @@
 
 2003-02-18  Kim F. Storm  <storm@cua.dk>
 
-        * lread.c (read1): Fix last change; "`" is not always special.
+        * lread.c (read1): Fix last change.
+        "`" is not always special.  Allow "?" after a character constant.
 
 2003-02-18  Andrew Choi  <akochoi@shaw.ca>
 
diff --git a/src/lread.c b/src/lread.c
index f5d639e4494..d3f09847787 100644
--- a/src/lread.c
+++ b/src/lread.c
@@ -2278,7 +2278,7 @@ read1 (readcharfun, pch, first_in_list)
         else
           {
             ok = (next_char <= 040
-                  || index ("\"';()[]#", next_char)
+                  || index ("\"';()[]#?", next_char)
                   || (!first_in_list && next_char == '`')
                   || (new_backquote_flag && next_char == ','));
           }