Mercurial > emacs
changeset 29726:c9430bc1c824
* keyboard.c (follow_key, read_key_sequence): Use XUINT on key value, or checks
for CHAR_META will fail.
* keymap.c (get_keyelt): Likewise.
author | Ken Raeburn <raeburn@raeburn.org> |
---|---|
date | Mon, 19 Jun 2000 07:15:08 +0000 |
parents | 2bc397e9b09a |
children | a1a4b7597a40 |
files | src/ChangeLog src/keyboard.c src/keymap.c |
diffstat | 3 files changed, 3 insertions(+), 3 deletions(-) [+] |
line wrap: on
line diff
--- a/src/keyboard.c Mon Jun 19 05:18:09 2000 +0000 +++ b/src/keyboard.c Mon Jun 19 07:15:08 2000 +0000 @@ -8192,7 +8192,7 @@ key = keybuf[fkey_end++]; /* Look up meta-characters by prefixing them with meta_prefix_char. I hate this. */ - if (INTEGERP (key) && XINT (key) & meta_modifier) + if (INTEGERP (key) && XUINT (key) & meta_modifier) { fkey_next = get_keymap_1 @@ -8316,7 +8316,7 @@ key = keybuf[keytran_end++]; /* Look up meta-characters by prefixing them with meta_prefix_char. I hate this. */ - if (INTEGERP (key) && XINT (key) & meta_modifier) + if (INTEGERP (key) && XUINT (key) & meta_modifier) { keytran_next = get_keymap_1
--- a/src/keymap.c Mon Jun 19 05:18:09 2000 +0000 +++ b/src/keymap.c Mon Jun 19 07:15:08 2000 +0000 @@ -625,7 +625,7 @@ { Lisp_Object key; key = Fcdr (object); - if (INTEGERP (key) && (XINT (key) & meta_modifier)) + if (INTEGERP (key) && (XUINT (key) & meta_modifier)) { object = access_keymap (map, meta_prefix_char, 0, 0); map = get_keymap_1 (object, 0, autoload);