From f69559dd10959fc102a8fa7e61149c8645f71801 Mon Sep 17 00:00:00 2001 From: Dave Love Date: Mon, 29 Sep 2003 18:06:24 +0000 Subject: [PATCH] (Fset_keymap_parent, map_keymap, Fcopy_keymap) (Faccessible_keymaps, where_is_internal): Remove unused vars. --- src/keymap.c | 10 +--------- 1 file changed, 1 insertion(+), 9 deletions(-) diff --git a/src/keymap.c b/src/keymap.c index c274183de49..76431a516aa 100644 --- a/src/keymap.c +++ b/src/keymap.c @@ -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), -- 2.39.5