From: Karl Heuer <kwzh@gnu.org>
Date: Fri, 29 Apr 1994 02:51:44 +0000 (+0000)
Subject: (describe_map_tree): gcpro some things.
X-Git-Tag: emacs-19.34~8669
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=e3dfcd4ea97349e1a7407d1b9522b9135f64d536;p=emacs.git

(describe_map_tree): gcpro some things.
---

diff --git a/src/keymap.c b/src/keymap.c
index 55745ffcb39..932aace2782 100644
--- a/src/keymap.c
+++ b/src/keymap.c
@@ -1881,8 +1881,8 @@ describe_map_tree (startmap, partial, shadow, prefix, title, nomenu)
      char *title;
      int nomenu;
 {
-  Lisp_Object maps, seen;
-  struct gcpro gcpro1, gcpro2;
+  Lisp_Object maps, seen, sub_shadows;
+  struct gcpro gcpro1, gcpro2, gcpro3;
   int something = 0;
   char *key_heading
     = "\
@@ -1891,7 +1891,8 @@ key             binding\n\
 
   maps = Faccessible_keymaps (startmap, prefix);
   seen = Qnil;
-  GCPRO2 (maps, seen);
+  sub_shadows = Qnil;
+  GCPRO3 (maps, seen, sub_shadows);
 
   if (nomenu)
     {
@@ -1931,7 +1932,7 @@ key             binding\n\
 
   for (; !NILP (maps); maps = Fcdr (maps))
     {
-      register Lisp_Object elt, prefix, sub_shadows, tail;
+      register Lisp_Object elt, prefix, tail;
 
       elt = Fcar (maps);
       prefix = Fcar (elt);