(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.

1 files changed, 4 insertions, 3 deletions

diff --git a/src/keymap.c b/src/keymap.c
index c44cf09d5b9..e9e51c785de 100644
--- a/src/keymap.c
+++ b/src/keymap.c
@@ -1537,7 +1537,7 @@ then the value includes only maps for prefixes that start with PREFIX.")
               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 @@ accessible_keymaps_char_table (args, index, cmd)
      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));