From: Gerd Moellmann <gerd@gnu.org>
Date: Wed, 22 Aug 2001 08:29:20 +0000 (+0000)
Subject: (access_keymap): Fix last change to not consider
X-Git-Tag: emacs-pretest-21.0.105~122
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=62b366ffb32702059a53aba680dd5efdd6bdfb64;p=emacs.git

(access_keymap): Fix last change to not consider
IDX when it has modifiers.
---

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)
 		return get_keyelt (val, autoload);
 	      }
 	    else if (INTEGERP (idx)
+		     && (XINT (idx) & CHAR_MODIFIER_MASK) == 0
 		     && INTEGERP (key)
+		     && (XINT (key) & CHAR_MODIFIER_MASK) == 0
 		     && !SINGLE_BYTE_CHAR_P (XINT (idx))
 		     && !SINGLE_BYTE_CHAR_P (XINT (key))
 		     && CHAR_VALID_P (XINT (key), 1)
@@ -571,9 +573,7 @@ access_keymap (map, idx, t_ok, noinherit, autoload)
 	       are not included in a char-table.
 	       All character codes without modifiers are included.  */
 	    if (NATNUMP (idx)
-		&& ! (XFASTINT (idx)
-		      & (CHAR_ALT | CHAR_SUPER | CHAR_HYPER
-			 | CHAR_SHIFT | CHAR_CTL | CHAR_META)))
+		&& (XFASTINT (idx) & CHAR_MODIFIER_MASK) == 0)
 	      {
 		val = Faref (binding, idx);
 		if (noprefix && KEYMAPP (val))