# HG changeset patch
# User Stefan Monnier <monnier@iro.umontreal.ca>
# Date 983207760 0
# Node ID f5bdd1200e0e39adce94f4054a9db2cf5b5fe052
# Parent  7fe1b8d8fc44a4140bf22837558ab3e6d77fda6c
(Faccessible_keymaps): Pass `is_metized' to accessible_keymaps_char_table.
(accessible_keymaps_char_table): Obey `is_metized'.
(where_is_internal, Fwhere_is_internal): Don't confuse int and Lisp_Object.

diff -r 7fe1b8d8fc44 -r f5bdd1200e0e src/keymap.c
--- a/src/keymap.c	Mon Feb 26 17:07:47 2001 +0000
+++ b/src/keymap.c	Mon Feb 26 17:16:00 2001 +0000
@@ -1537,7 +1537,7 @@
 	      Lisp_Object indices[3];
 
 	      map_char_table (accessible_keymaps_char_table, Qnil,
-			      elt, Fcons (Fcons (maps, is_metized),
+			      elt, Fcons (Fcons (maps, make_number (is_metized)),
 					  Fcons (tail, thisseq)),
 			      0, indices);
 	    }
@@ -1669,14 +1669,15 @@
      Lisp_Object args, index, cmd;
 {
   Lisp_Object tem;
-  Lisp_Object maps, tail, thisseq, is_metized;
+  Lisp_Object maps, tail, thisseq;
+  int is_metized;
 
   cmd = get_keyelt (cmd, 0);
   if (NILP (cmd))
     return;
 
   maps = XCAR (XCAR (args));
-  is_metized = XCDR (XCAR (args));
+  is_metized = XINT (XCDR (XCAR (args)));
   tail = XCAR (XCDR (args));
   thisseq = XCDR (XCDR (args));