From fc18e5470d04b5315514ed8ef6a89a876f2f84bc Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Mon, 26 Feb 2001 17:16:00 +0000 Subject: [PATCH] (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. --- src/keymap.c | 7 ++++--- 1 file 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)); -- 2.39.5