Mercurial > emacs
comparison src/lread.c @ 7144:cf47c0c11bda
(read1): Allow `\C- ' and `\C-?'.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Thu, 28 Apr 1994 02:34:20 +0000 |
| parents | 06542cc6ddcd |
| children | a5199564772e |
comparison
equal
deleted
inserted
replaced
| 7143:fa1ae50e55b3 | 7144:cf47c0c11bda |
|---|---|
| 1215 if (p == read_buffer) | 1215 if (p == read_buffer) |
| 1216 cancel = 1; | 1216 cancel = 1; |
| 1217 } | 1217 } |
| 1218 else | 1218 else |
| 1219 { | 1219 { |
| 1220 /* Allow `\C- ' and `\C-?'. */ | |
| 1221 if (c == (CHAR_CTL | ' ')) | |
| 1222 c = 0; | |
| 1223 else if (c == (CHAR_CTL | '?')) | |
| 1224 c = 127; | |
| 1225 | |
| 1220 if (c & CHAR_META) | 1226 if (c & CHAR_META) |
| 1221 /* Move the meta bit to the right place for a string. */ | 1227 /* Move the meta bit to the right place for a string. */ |
| 1222 c = (c & ~CHAR_META) | 0x80; | 1228 c = (c & ~CHAR_META) | 0x80; |
| 1223 if (c & ~0xff) | 1229 if (c & ~0xff) |
| 1224 error ("Invalid modifier in string"); | 1230 error ("Invalid modifier in string"); |