# HG changeset patch
# User Karl Heuer <kwzh@gnu.org>
# Date 771540990 0
# Node ID 11fae1619e4268ca4e0f20282e9962c3b0743a0a
# Parent  537930034e73374d7405318be078c6e5b040b771
(single_keymap_panes): gcpro some things.

diff -r 537930034e73 -r 11fae1619e42 src/xmenu.c
--- a/src/xmenu.c	Mon Jun 13 20:41:21 1994 +0000
+++ b/src/xmenu.c	Mon Jun 13 20:56:30 1994 +0000
@@ -490,7 +490,9 @@
 		  else
 		    {
 		      Lisp_Object submap;
+		      GCPRO4 (keymap, pending_maps, descrip, item_string);
 		      submap = get_keymap_1 (def, 0, 1);
+		      UNGCPRO;
 #ifndef USE_X_TOOLKIT
 		      /* Indicate visually that this is a submenu.  */
 		      if (!NILP (submap))
@@ -555,7 +557,9 @@
 		      else
 			{
 			  Lisp_Object submap;
+			  GCPRO4 (keymap, pending_maps, descrip, item_string);
 			  submap = get_keymap_1 (def, 0, 1);
+			  UNGCPRO;
 #ifndef USE_X_TOOLKIT
 			  if (!NILP (submap))
 			    item_string = concat2 (item_string,