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

988c2f83 · Richard M. Stallman · fe8fd409 · 988c2f83
Commit 988c2f83 authored Apr 28, 1994 by Richard M. Stallman
Hide whitespace changes
Inline Side-by-side

Showing with 6 additions and 0 deletions

src/lread.c src/lread.c +6 -0

No files found.
--- 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;