Mercurial > emacs
comparison src/keyboard.c @ 2056:0c95942fc8da
(read_key_sequence):
Use meta_modifier for meta keys when handling function_key_map.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Sun, 07 Mar 1993 20:18:52 +0000 |
| parents | cc85a38463b8 |
| children | 8fe7e77dc596 |
comparison
equal
deleted
inserted
replaced
| 2055:9234ebe088c9 | 2056:0c95942fc8da |
|---|---|
| 3496 Lisp_Object key; | 3496 Lisp_Object key; |
| 3497 | 3497 |
| 3498 key = keybuf[fkey_end++]; | 3498 key = keybuf[fkey_end++]; |
| 3499 /* Look up meta-characters by prefixing them | 3499 /* Look up meta-characters by prefixing them |
| 3500 with meta_prefix_char. I hate this. */ | 3500 with meta_prefix_char. I hate this. */ |
| 3501 if (XTYPE (key) == Lisp_Int && XINT (key) & 0x80) | 3501 if (XTYPE (key) == Lisp_Int && XINT (key) & meta_modifier) |
| 3502 { | 3502 { |
| 3503 fkey_next = | 3503 fkey_next = |
| 3504 get_keymap_1 | 3504 get_keymap_1 |
| 3505 (get_keyelt | 3505 (get_keyelt |
| 3506 (access_keymap | 3506 (access_keymap |
| 3507 (fkey_map, meta_prefix_char, 1)), | 3507 (fkey_map, meta_prefix_char, 1)), |
| 3508 0, 1); | 3508 0, 1); |
| 3509 XFASTINT (key) = XFASTINT (key) & 0x7f; | 3509 XFASTINT (key) = XFASTINT (key) & ~meta_modifier; |
| 3510 } | 3510 } |
| 3511 else | 3511 else |
| 3512 fkey_next = fkey_map; | 3512 fkey_next = fkey_map; |
| 3513 | 3513 |
| 3514 fkey_next = | 3514 fkey_next = |