Mercurial > emacs
changeset 7144:cf47c0c11bda
(read1): Allow `\C- ' and `\C-?'.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Thu, 28 Apr 1994 02:34:20 +0000 |
| parents | fa1ae50e55b3 |
| children | 1221250ed953 |
| files | src/lread.c |
| diffstat | 1 files changed, 6 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
--- a/src/lread.c Wed Apr 27 23:44:39 1994 +0000 +++ b/src/lread.c Thu Apr 28 02:34:20 1994 +0000 @@ -1217,6 +1217,12 @@ } 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;