# HG changeset patch
# User Karl Heuer <kwzh@gnu.org>
# Date 767587904 0
# Node ID caac285c072d6e953b2b7b694ec2e4cbac6845be
# Parent  b96377c0e49dea099fca423e1cee8c14bc6ffef6
(describe_map_tree): gcpro some things.

diff -r b96377c0e49d -r caac285c072d src/keymap.c
--- a/src/keymap.c	Fri Apr 29 01:10:33 1994 +0000
+++ b/src/keymap.c	Fri Apr 29 02:51:44 1994 +0000
@@ -1881,8 +1881,8 @@
      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 @@
 
   maps = Faccessible_keymaps (startmap, prefix);
   seen = Qnil;
-  GCPRO2 (maps, seen);
+  sub_shadows = Qnil;
+  GCPRO3 (maps, seen, sub_shadows);
 
   if (nomenu)
     {
@@ -1931,7 +1932,7 @@
 
   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);