# HG changeset patch
# User Dave Love <fx@gnu.org>
# Date 1064858784 0
# Node ID 28a8f2be44148b87a78f0ac0eda9d19ee388243a
# Parent  eda6a400df54454135e8c94ecb4c437afcdd10bf
(Fset_keymap_parent, map_keymap, Fcopy_keymap)
(Faccessible_keymaps, where_is_internal): Remove unused vars.

diff -r eda6a400df54 -r 28a8f2be4414 src/keymap.c
--- a/src/keymap.c	Mon Sep 29 18:04:28 2003 +0000
+++ b/src/keymap.c	Mon Sep 29 18:06:24 2003 +0000
@@ -411,10 +411,7 @@
 
       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 @@
 	}
       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 @@
       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 @@
 
 	  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 @@
 	    }
 	  else if (CHAR_TABLE_P (elt))
 	    {
-	      Lisp_Object indices[3];
 	      Lisp_Object args;
 
 	      args = Fcons (Fcons (Fcons (definition, noindirect),