aboutsummaryrefslogtreecommitdiffstats
path: root/src/keymap.c
diff options
context:
space:
mode:
Diffstat (limited to 'src/keymap.c')
-rw-r--r--src/keymap.c7
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.")
1537 Lisp_Object indices[3]; 1537 Lisp_Object indices[3];
1538 1538
1539 map_char_table (accessible_keymaps_char_table, Qnil, 1539 map_char_table (accessible_keymaps_char_table, Qnil,
1540 elt, Fcons (Fcons (maps, is_metized), 1540 elt, Fcons (Fcons (maps, make_number (is_metized)),
1541 Fcons (tail, thisseq)), 1541 Fcons (tail, thisseq)),
1542 0, indices); 1542 0, indices);
1543 } 1543 }
@@ -1669,14 +1669,15 @@ accessible_keymaps_char_table (args, index, cmd)
1669 Lisp_Object args, index, cmd; 1669 Lisp_Object args, index, cmd;
1670{ 1670{
1671 Lisp_Object tem; 1671 Lisp_Object tem;
1672 Lisp_Object maps, tail, thisseq, is_metized; 1672 Lisp_Object maps, tail, thisseq;
1673 int is_metized;
1673 1674
1674 cmd = get_keyelt (cmd, 0); 1675 cmd = get_keyelt (cmd, 0);
1675 if (NILP (cmd)) 1676 if (NILP (cmd))
1676 return; 1677 return;
1677 1678
1678 maps = XCAR (XCAR (args)); 1679 maps = XCAR (XCAR (args));
1679 is_metized = XCDR (XCAR (args)); 1680 is_metized = XINT (XCDR (XCAR (args)));
1680 tail = XCAR (XCDR (args)); 1681 tail = XCAR (XCDR (args));
1681 thisseq = XCDR (XCDR (args)); 1682 thisseq = XCDR (XCDR (args));
1682 1683