(read1): Allow `\C- ' and `\C-?'.

1 files changed, 6 insertions, 0 deletions

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;