From: Dave Love <fx@gnu.org>
Date: Wed, 3 Jul 2002 22:01:54 +0000 (+0000)
Subject: (access_keymap): Remove generic char code.
X-Git-Tag: emacs-pretest-23.0.90~8295^2~1864^2~598
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=910bb84b4e47f0936eeaacc957c241b2c476d5ae;p=emacs.git

(access_keymap): Remove generic char code.
(push_key_description): Use CHARACTERP.
---

diff --git a/src/keymap.c b/src/keymap.c
index d1b0cb827f2..f760969b21f 100644
--- a/src/keymap.c
+++ b/src/keymap.c
@@ -537,9 +537,7 @@ access_keymap (map, idx, t_ok, noinherit, autoload)
     Lisp_Object t_binding;
     t_binding = Qnil;
 
-    /* If `t_ok' is 2, both `t' and generic-char bindings are accepted.
-       If it is 1, only generic-char bindings are accepted.
-       Otherwise, neither are.  */
+    /* If `t_ok' is 2, both `t' is accepted.  */
     t_ok = t_ok ? 2 : 0;
 
     for (tail = XCDR (map);
@@ -563,24 +561,6 @@ access_keymap (map, idx, t_ok, noinherit, autoload)
 	    
 	    if (EQ (key, idx))
 	      val = XCDR (binding);
-	    else if (t_ok
-		     && 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)
-		     && !CHAR_VALID_P (XINT (key), 0)
-		     && (CHAR_CHARSET (XINT (key))
-			 == CHAR_CHARSET (XINT (idx))))
-	      {
-		/* KEY is the generic character of the charset of IDX.
-		   Use KEY's binding if there isn't a binding for IDX
-		   itself.  */
-		t_binding = XCDR (binding);
-		t_ok = 0;
-	      }
 	    else if (t_ok > 1 && EQ (key, Qt))
 	      {
 		t_binding = XCDR (binding);
@@ -2044,7 +2024,7 @@ push_key_description (c, p, force_multibyte)
     {
       *p++ = c;
     }
-  else if (CHAR_VALID_P (c, 0))
+  else if (CHARACTERP (c))
     {
       if (NILP (current_buffer->enable_multibyte_characters))
 	*p++ = multibyte_char_to_unibyte (c, Qnil);