From 988c2f83a88c774cec9d35644365dd7dc85a3bc0 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Thu, 28 Apr 1994 02:34:20 +0000 Subject: [PATCH] (read1): Allow `\C- ' and `\C-?'. --- src/lread.c | 6 ++++++ 1 file changed, 6 insertions(+) diff --git a/src/lread.c b/src/lread.c index 105e9c5efe0..545256904d6 100644 --- a/src/lread.c +++ b/src/lread.c @@ -1217,6 +1217,12 @@ read1 (readcharfun) } else { + /* Allow `\C- ' and `\C-?'. */ + if (c == (CHAR_CTL | ' ')) + c = 0; + else if (c == (CHAR_CTL | '?')) + c = 127; + if (c & CHAR_META) /* Move the meta bit to the right place for a string. */ c = (c & ~CHAR_META) | 0x80; -- 2.39.5