Mercurial > emacs

changeset 51034:a5bb1c5181ac

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(Fset_keymap_parent, map_keymap, Fcopy_keymap) (Faccessible_keymaps): Pass new arg to map_char_table.
author Richard M. Stallman <rms@gnu.org>
date Sat, 17 May 2003 12:47:55 +0000
parents 8fe4bdd97052
children b17fe74b2af3
files src/keymap.c
diffstat 1 files changed, 6 insertions(+), 5 deletions(-) [+]
line wrap: on
line diff
--- 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));
 	    }