changeset 88821:690d527d1ad2

(access_keymap): Remove generic char code. (push_key_description): Use CHARACTERP.
author Dave Love <fx@gnu.org>
date Wed, 03 Jul 2002 22:01:54 +0000
parents 2a39da7c94ef
children 9c92853c0d10
files src/keymap.c
diffstat 1 files changed, 2 insertions(+), 22 deletions(-) [+]
line wrap: on
line diff
--- a/src/keymap.c	Mon Jul 01 20:44:43 2002 +0000
+++ b/src/keymap.c	Wed Jul 03 22:01:54 2002 +0000
@@ -537,9 +537,7 @@
     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 @@
 	    
 	    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 @@
     {
       *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);