aboutsummaryrefslogtreecommitdiffstats
path: root/src/keymap.c
diff options
context:
space:
mode:
authorGerd Moellmann2001-08-22 08:29:20 +0000
committerGerd Moellmann2001-08-22 08:29:20 +0000
commit62b366ffb32702059a53aba680dd5efdd6bdfb64 (patch)
treefb089d1493df7b92377f329b91983f543b9bbeec /src/keymap.c
parentefeb796b01d8ff936fa06e21deaa1ac3b3ed515c (diff)
downloademacs-62b366ffb32702059a53aba680dd5efdd6bdfb64.tar.gz
emacs-62b366ffb32702059a53aba680dd5efdd6bdfb64.zip
(access_keymap): Fix last change to not consider
IDX when it has modifiers.
Diffstat (limited to 'src/keymap.c')
-rw-r--r--src/keymap.c6
1 files changed, 3 insertions, 3 deletions
diff --git a/src/keymap.c b/src/keymap.c
index c4054f3a95a..e503172cfa4 100644
--- a/src/keymap.c
+++ b/src/keymap.c
@@ -537,7 +537,9 @@ access_keymap (map, idx, t_ok, noinherit, autoload)
537 return get_keyelt (val, autoload); 537 return get_keyelt (val, autoload);
538 } 538 }
539 else if (INTEGERP (idx) 539 else if (INTEGERP (idx)
540 && (XINT (idx) & CHAR_MODIFIER_MASK) == 0
540 && INTEGERP (key) 541 && INTEGERP (key)
542 && (XINT (key) & CHAR_MODIFIER_MASK) == 0
541 && !SINGLE_BYTE_CHAR_P (XINT (idx)) 543 && !SINGLE_BYTE_CHAR_P (XINT (idx))
542 && !SINGLE_BYTE_CHAR_P (XINT (key)) 544 && !SINGLE_BYTE_CHAR_P (XINT (key))
543 && CHAR_VALID_P (XINT (key), 1) 545 && CHAR_VALID_P (XINT (key), 1)
@@ -571,9 +573,7 @@ access_keymap (map, idx, t_ok, noinherit, autoload)
571 are not included in a char-table. 573 are not included in a char-table.
572 All character codes without modifiers are included. */ 574 All character codes without modifiers are included. */
573 if (NATNUMP (idx) 575 if (NATNUMP (idx)
574 && ! (XFASTINT (idx) 576 && (XFASTINT (idx) & CHAR_MODIFIER_MASK) == 0)
575 & (CHAR_ALT | CHAR_SUPER | CHAR_HYPER
576 | CHAR_SHIFT | CHAR_CTL | CHAR_META)))
577 { 577 {
578 val = Faref (binding, idx); 578 val = Faref (binding, idx);
579 if (noprefix && KEYMAPP (val)) 579 if (noprefix && KEYMAPP (val))