From: Gerd Moellmann <gerd@gnu.org>
Date: Mon, 20 Sep 1999 23:18:45 +0000 (+0000)
Subject: (Flookup_key, Faccessible_keymaps, describe_vector,
X-Git-Tag: emacs-pretest-21.0.90~6657
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=47935df1ad22e51a5017214df5d39e867af94f49;p=emacs.git

(Flookup_key, Faccessible_keymaps, describe_vector,
keys_of_keymap, syms_of_keymap): Remove unused variables.
---

diff --git a/src/keymap.c b/src/keymap.c
index aa1ec28c284..9216fc498f4 100644
--- a/src/keymap.c
+++ b/src/keymap.c
@@ -901,7 +901,6 @@ the front of KEYMAP.")
 {
   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 @@ recognize the default bindings, just as `read-key-sequence' does.")
      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 @@ then the value includes only maps for prefixes that start with PREFIX.")
 	    }
 	  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 @@ describe_vector (vector, elt_prefix, elt_describer,
   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 @@ Return list of symbols found.")
 void
 syms_of_keymap ()
 {
-  Lisp_Object tem;
-
   Qkeymap = intern ("keymap");
   staticpro (&Qkeymap);
 
@@ -3403,8 +3399,6 @@ and applies even for keys that have ordinary bindings.");
 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");
 }