(Fset_keymap_parent, map_keymap, Fcopy_keymap)

(Faccessible_keymaps, where_is_internal): Remove unused vars.

1 files changed, 1 insertions, 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),