From: Richard M. Stallman <rms@gnu.org>
Date: Thu, 28 Apr 1994 02:34:20 +0000 (+0000)
Subject: (read1): Allow `\C- ' and `\C-?'.
X-Git-Tag: emacs-19.34~8709
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=988c2f83a88c774cec9d35644365dd7dc85a3bc0;p=emacs.git

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

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;