From e3dfcd4ea97349e1a7407d1b9522b9135f64d536 Mon Sep 17 00:00:00 2001 From: Karl Heuer Date: Fri, 29 Apr 1994 02:51:44 +0000 Subject: [PATCH] (describe_map_tree): gcpro some things. --- src/keymap.c | 9 +++++---- 1 file changed, 5 insertions(+), 4 deletions(-) diff --git a/src/keymap.c b/src/keymap.c index 55745ffcb3..932aace278 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); -- 2.20.1