From: Po Lu <luangruo@yahoo.com>
Date: Tue, 8 Feb 2022 02:37:24 +0000 (+0800)
Subject: Fix menu bar not opening after popup menu is dismissed on Lucid
X-Git-Tag: emacs-29.0.90~2443
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=65f07859172940b1f7c89e4a81c8bc1a28646f96;p=emacs.git

Fix menu bar not opening after popup menu is dismissed on Lucid

* lwlib/xlwmenu.c (XlwMenuDestroy): Only set submenu_destroyed
if menu bar widget.
---

diff --git a/lwlib/xlwmenu.c b/lwlib/xlwmenu.c
index cf6a8b1387e..ace5141cdbc 100644
--- a/lwlib/xlwmenu.c
+++ b/lwlib/xlwmenu.c
@@ -2105,7 +2105,8 @@ XlwMenuDestroy (Widget w)
     ungrab_all ((Widget)w, CurrentTime);
   pointer_grabbed = 0;
 
-  submenu_destroyed = 1;
+  if (!XtIsShell (XtParent (w)))
+    submenu_destroyed = 1;
 
   release_drawing_gcs (mw);
   release_shadow_gcs (mw);