# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 1053175675 0
# Node ID a5bb1c5181ac9f4574d9e733670daa6f2cd40580
# Parent  8fe4bdd970526ede07377c0f56739498c84948ef
(Fset_keymap_parent, map_keymap, Fcopy_keymap)
(Faccessible_keymaps): Pass new arg to map_char_table.

diff -r 8fe4bdd97052 -r a5bb1c5181ac src/keymap.c
--- a/src/keymap.c	Sat May 17 12:46:53 2003 +0000
+++ b/src/keymap.c	Sat May 17 12:47:55 2003 +0000
@@ -412,7 +412,8 @@
 	{
 	  Lisp_Object indices[3];
 
-	  map_char_table (fix_submap_inheritance, Qnil, XCAR (list),
+	  map_char_table (fix_submap_inheritance, Qnil,
+			  XCAR (list), XCAR (list),
 			  keymap, 0, indices);
 	}
     }
@@ -705,7 +706,7 @@
       else if (CHAR_TABLE_P (binding))
 	{
 	  Lisp_Object indices[3];
-	  map_char_table (map_keymap_char_table_item, Qnil, binding,
+	  map_char_table (map_keymap_char_table_item, Qnil, binding, binding,
 			  Fcons (make_save_value (fun, 0),
 				 Fcons (make_save_value (data, 0),
 					args)),
@@ -1040,7 +1041,7 @@
 	{
 	  Lisp_Object indices[3];
 	  elt = Fcopy_sequence (elt);
-	  map_char_table (copy_keymap_1, Qnil, elt, elt, 0, indices);
+	  map_char_table (copy_keymap_1, Qnil, elt, elt, elt, 0, indices);
 	}
       else if (VECTORP (elt))
 	{
@@ -1914,7 +1915,7 @@
 	    {
 	      Lisp_Object indices[3];
 
-	      map_char_table (accessible_keymaps_char_table, Qnil,
+	      map_char_table (accessible_keymaps_char_table, Qnil, elt,
 			      elt, Fcons (Fcons (maps, make_number (is_metized)),
 					  Fcons (tail, thisseq)),
 			      0, indices);
@@ -2431,7 +2432,7 @@
 			    Fcons (Fcons (this, last),
 				   Fcons (make_number (nomenus),
 					  make_number (last_is_meta))));
-	      map_char_table (where_is_internal_2, Qnil, elt, args,
+	      map_char_table (where_is_internal_2, Qnil, elt, elt, args,
 			      0, indices);
 	      sequences = XCDR (XCAR (args));
 	    }