1 files changed, 11 insertions, 14 deletions

diff --git a/src/xmenu.c b/src/xmenu.c
index a7d47188ef5..8bb8d17369c 100644
--- a/src/xmenu.c
+++ b/src/xmenu.c
@@ -2023,7 +2023,8 @@ x_menu_show (struct frame *f, int x, int y, int menuflags,
   Window root;
   XMenu *menu;
   int pane, selidx, lpane, status;
-  Lisp_Object entry, pane_prefix;
+  Lisp_Object entry = Qnil;
+  Lisp_Object pane_prefix;
   char *datap;
   int ulx, uly, width, height;
   int dispwidth, dispheight;
@@ -2045,6 +2046,7 @@ x_menu_show (struct frame *f, int x, int y, int menuflags,
       return Qnil;
     }
 
+  USE_SAFE_ALLOCA;
   block_input ();
 
   /* Figure out which root window F is on.  */
@@ -2057,8 +2059,7 @@ x_menu_show (struct frame *f, int x, int y, int menuflags,
   if (menu == NULL)
     {
       *error_name = "Can't create menu";
-      unblock_input ();
-      return Qnil;
+      goto return_entry;
     }
 
   /* Don't GC while we prepare and show the menu,
@@ -2101,8 +2102,7 @@ x_menu_show (struct frame *f, int x, int y, int menuflags,
             {
               XMenuDestroy (FRAME_X_DISPLAY (f), menu);
               *error_name = "Can't create pane";
-              unblock_input ();
-              return Qnil;
+              goto return_entry;
             }
           i += MENU_ITEMS_PANE_LENGTH;
 
@@ -2146,9 +2146,7 @@ x_menu_show (struct frame *f, int x, int y, int menuflags,
 
           if (!NILP (descrip))
             {
-              /* if alloca is fast, use that to make the space,
-                 to reduce gc needs.  */
-              item_data = alloca (maxwidth + SBYTES (descrip) + 1);
+              item_data = SAFE_ALLOCA (maxwidth + SBYTES (descrip) + 1);
               memcpy (item_data, SSDATA (item_name), SBYTES (item_name));
               for (j = SCHARS (item_name); j < maxwidth; j++)
                 item_data[j] = ' ';
@@ -2166,8 +2164,7 @@ x_menu_show (struct frame *f, int x, int y, int menuflags,
             {
               XMenuDestroy (FRAME_X_DISPLAY (f), menu);
               *error_name = "Can't add selection to menu";
-              unblock_input ();
-              return Qnil;
+              goto return_entry;
             }
           i += MENU_ITEMS_ITEM_LENGTH;
           lines++;
@@ -2241,7 +2238,7 @@ x_menu_show (struct frame *f, int x, int y, int menuflags,
   status = XMenuActivate (FRAME_X_DISPLAY (f), menu, &pane, &selidx,
                           x, y, ButtonReleaseMask, &datap,
                           menu_help_callback);
-  entry = pane_prefix = Qnil;
+  pane_prefix = Qnil;
 
   switch (status)
     {
@@ -2300,10 +2297,10 @@ x_menu_show (struct frame *f, int x, int y, int menuflags,
       break;
     }
 
+ return_entry:
   unblock_input ();
-  unbind_to (specpdl_count, Qnil);
-
-  return entry;
+  SAFE_FREE ();
+  return unbind_to (specpdl_count, entry);
 }
 
 #endif /* not USE_X_TOOLKIT */