From: Kim F. Storm <storm@cua.dk>
Date: Tue, 18 Feb 2003 22:45:45 +0000 (+0000)
Subject: (read1): Allow "?" after a character constant.
X-Git-Tag: ttn-vms-21-2-B4~11132
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=068f98821bc0b1db32d5b75b7abe9e4799b0ff57;p=emacs.git

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

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 == ','));
 	  }