Commit f69559dd authored by Dave Love's avatar Dave Love

(Fset_keymap_parent, map_keymap, Fcopy_keymap)

(Faccessible_keymaps, where_is_internal): Remove unused vars.
parent 3a0ae1f3
......@@ -411,10 +411,7 @@ PARENT should be nil or another keymap. */)
if (CHAR_TABLE_P (XCAR (list)))
{
Lisp_Object indices[3];
map_char_table (fix_submap_inheritance, Qnil,
XCAR (list), keymap);
map_char_table (fix_submap_inheritance, Qnil, XCAR (list), keymap);
}
}
......@@ -685,7 +682,6 @@ map_keymap (map, fun, args, data, autoload)
}
else if (CHAR_TABLE_P (binding))
{
Lisp_Object indices[3];
map_char_table (map_keymap_char_table_item, Qnil, binding,
Fcons (make_save_value (fun, 0),
Fcons (make_save_value (data, 0),
......@@ -1023,7 +1019,6 @@ is not copied. */)
Lisp_Object elt = XCAR (keymap);
if (CHAR_TABLE_P (elt))
{
Lisp_Object indices[3];
elt = Fcopy_sequence (elt);
map_char_table (copy_keymap_1, Qnil, elt, elt);
}
......@@ -1907,8 +1902,6 @@ then the value includes only maps for prefixes that start with PREFIX. */)
if (CHAR_TABLE_P (elt))
{
Lisp_Object indices[3];
map_char_table (accessible_keymaps_char_table, Qnil,
elt, Fcons (Fcons (maps, make_number (is_metized)),
Fcons (tail, thisseq)));
......@@ -2378,7 +2371,6 @@ where_is_internal (definition, keymaps, firstonly, noindirect, no_remap)
}
else if (CHAR_TABLE_P (elt))
{
Lisp_Object indices[3];
Lisp_Object args;
args = Fcons (Fcons (Fcons (definition, noindirect),
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment