]> git.eshelyaron.com Git - emacs.git/commitdiff
(Faccessible_keymaps): Pass `is_metized' to accessible_keymaps_char_table.
authorStefan Monnier <monnier@iro.umontreal.ca>
Mon, 26 Feb 2001 17:16:00 +0000 (17:16 +0000)
committerStefan Monnier <monnier@iro.umontreal.ca>
Mon, 26 Feb 2001 17:16:00 +0000 (17:16 +0000)
(accessible_keymaps_char_table): Obey `is_metized'.
(where_is_internal, Fwhere_is_internal): Don't confuse int and Lisp_Object.

src/keymap.c

index c44cf09d5b99648e6da9e88d3e76229e72c03305..e9e51c785dec5f44e4d63878cea8c061a4435685 100644 (file)
@@ -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));