From 068f98821bc0b1db32d5b75b7abe9e4799b0ff57 Mon Sep 17 00:00:00 2001 From: "Kim F. Storm" Date: Tue, 18 Feb 2003 22:45:45 +0000 Subject: [PATCH] (read1): Allow "?" after a character constant. --- src/ChangeLog | 3 ++- src/lread.c | 2 +- 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 - * 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 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 == ',')); } -- 2.39.2