aboutsummaryrefslogtreecommitdiffstats
path: root/src
diff options
context:
space:
mode:
Diffstat (limited to 'src')
-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))