Mercurial > emacs
comparison src/keymap.c @ 23776:529965d3c653
(Fsingle_key_description): Fix previous change.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Sat, 28 Nov 1998 22:16:09 +0000 |
| parents | e6bdd4559dc7 |
| children | c8cdb4e487cb |
comparison
equal
deleted
inserted
replaced
| 23775:e2b39708c646 | 23776:529965d3c653 |
|---|---|
| 1858 key = EVENT_HEAD (key); | 1858 key = EVENT_HEAD (key); |
| 1859 | 1859 |
| 1860 if (INTEGERP (key)) /* Normal character */ | 1860 if (INTEGERP (key)) /* Normal character */ |
| 1861 { | 1861 { |
| 1862 unsigned int charset, c1, c2; | 1862 unsigned int charset, c1, c2; |
| 1863 | 1863 int without_bits = XINT (key) & ~((-1) << CHARACTERBITS); |
| 1864 if (SINGLE_BYTE_CHAR_P (XINT (key))) | 1864 |
| 1865 if (SINGLE_BYTE_CHAR_P (without_bits)) | |
| 1865 charset = 0; | 1866 charset = 0; |
| 1866 else | 1867 else |
| 1867 SPLIT_NON_ASCII_CHAR (XINT (key), charset, c1, c2); | 1868 SPLIT_NON_ASCII_CHAR (without_bits, charset, c1, c2); |
| 1868 | 1869 |
| 1869 if (charset | 1870 if (charset |
| 1870 && ((c1 >= 0 && c1 < 32) | 1871 && ((c1 >= 0 && c1 < 32) |
| 1871 || (c2 >= 0 && c2 < 32))) | 1872 || (c2 >= 0 && c2 < 32))) |
| 1872 { | 1873 { |