From b92843717547cf84299a2aad833450c0032e4732 Mon Sep 17 00:00:00 2001 From: "Kim F. Storm" Date: Tue, 25 Feb 2003 12:29:03 +0000 Subject: [PATCH] (read1): Accept `single space' syntax like (? x). --- src/lread.c | 7 +++++++ 1 file changed, 7 insertions(+) diff --git a/src/lread.c b/src/lread.c index 071bf679015..70f0a3f2f9b 100644 --- a/src/lread.c +++ b/src/lread.c @@ -2258,6 +2258,13 @@ read1 (readcharfun, pch, first_in_list) if (c < 0) end_of_file_error (); + /* Accept `single space' syntax like (list ? x) where the + whitespace character is SPC or TAB. + Other literal whitespace like NL, CR, and FF are not accepted, + as there are well-established escape sequences for these. */ + if (c == ' ' || c == '\t') + return make_number (c); + if (c == '\\') c = read_escape (readcharfun, 0, &discard); else if (BASE_LEADING_CODE_P (c)) -- 2.39.2