changeset 25785:0d701c4484e3

(Flookup_key, Faccessible_keymaps, describe_vector, keys_of_keymap, syms_of_keymap): Remove unused variables.
author Gerd Moellmann <gerd@gnu.org>
date Mon, 20 Sep 1999 23:18:45 +0000
parents fe4ca7eaee87
children 5ccfb99a7e21
files src/keymap.c
diffstat 1 files changed, 2 insertions(+), 8 deletions(-) [+]
line wrap: on
line diff
--- a/src/keymap.c	Mon Sep 20 23:18:45 1999 +0000
+++ b/src/keymap.c	Mon Sep 20 23:18:45 1999 +0000
@@ -901,7 +901,6 @@
 {
   register int idx;
   register Lisp_Object c;
-  register Lisp_Object tem;
   register Lisp_Object cmd;
   int metized = 0;
   int meta_bit;
@@ -996,7 +995,6 @@
      Lisp_Object accept_default;
 {
   register int idx;
-  register Lisp_Object tem;
   register Lisp_Object cmd;
   register Lisp_Object c;
   int metized = 0;
@@ -1616,7 +1614,7 @@
 	    }
 	  else if (CONSP (elt))
 	    {
-	      register Lisp_Object cmd, tem, filter;
+	      register Lisp_Object cmd, tem;
 
 	      cmd = get_keyelt (XCDR (elt), 0);
 	      /* Ignore definitions that aren't keymaps themselves.  */
@@ -2943,7 +2941,7 @@
   Lisp_Object suppress;
   Lisp_Object kludge;
   int first = 1;
-  struct gcpro gcpro1, gcpro2, gcpro3, gcpro4;
+  struct gcpro gcpro1, gcpro2, gcpro3;
   /* Range of elements to be handled.  */
   int from, to;
   /* A flag to tell if a leaf in this level of char-table is not a
@@ -3265,8 +3263,6 @@
 void
 syms_of_keymap ()
 {
-  Lisp_Object tem;
-
   Qkeymap = intern ("keymap");
   staticpro (&Qkeymap);
 
@@ -3403,8 +3399,6 @@
 void
 keys_of_keymap ()
 {
-  Lisp_Object tem;
-
   initial_define_key (global_map, 033, "ESC-prefix");
   initial_define_key (global_map, Ctl('X'), "Control-X-prefix");
 }