From: Richard M. Stallman <rms@gnu.org>
Date: Fri, 23 May 1997 17:33:32 +0000 (+0000)
Subject: (access_keymap, store_in_keymap): Don't look in a char-table
X-Git-Tag: emacs-20.1~2013
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=6418ea161998db00f53de089b841fc2a2d6cb394;p=emacs.git

(access_keymap, store_in_keymap): Don't look in a char-table
for a character that has modifier bits.
---

diff --git a/src/keymap.c b/src/keymap.c
index 6a08a86ef47..32c4afb322d 100644
--- a/src/keymap.c
+++ b/src/keymap.c
@@ -484,7 +484,13 @@ access_keymap (map, idx, t_ok, noinherit)
 	  }
 	else if (CHAR_TABLE_P (binding))
 	  {
-	    if (NATNUMP (idx))
+	    /* Character codes with modifiers
+	       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)))
 	      {
 		val = Faref (binding, idx);
 		if (noprefix && CONSP (val) && EQ (XCONS (val)->car, Qkeymap))
@@ -629,7 +635,13 @@ store_in_keymap (keymap, idx, def)
 	  }
 	else if (CHAR_TABLE_P (elt))
 	  {
-	    if (NATNUMP (idx))
+	    /* Character codes with modifiers
+	       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)))
 	      {
 		Faset (elt, idx, def);
 		return def;