Mercurial > emacs

changeset 89551:28a8f2be4414

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, where_is_internal): Remove unused vars.
author Dave Love <fx@gnu.org>
date Mon, 29 Sep 2003 18:06:24 +0000
parents eda6a400df54
children 47e79133c28a
files src/keymap.c
diffstat 1 files changed, 1 insertions(+), 9 deletions(-) [+]
line wrap: on
line diff
--- 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),