From: Karl Heuer <kwzh@gnu.org>
Date: Wed, 24 May 1995 21:43:00 +0000 (+0000)
Subject: (Fx_popup_dialog): Treat (menu-bar) like t, for POSITION.
X-Git-Tag: emacs-19.34~3951
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=88d4f6ec1243b4b06255095e83ce1da5a9ef1bc3;p=emacs.git

(Fx_popup_dialog): Treat (menu-bar) like t, for POSITION.
---

diff --git a/src/xmenu.c b/src/xmenu.c
index da760d4214b..6835ebdca92 100644
--- a/src/xmenu.c
+++ b/src/xmenu.c
@@ -950,7 +950,8 @@ on the left of the dialog box and all following items on the right.\n\
   check_x ();
 
   /* Decode the first argument: find the window or frame to use.  */
-  if (EQ (position, Qt))
+  if (EQ (position, Qt)
+      || (CONSP (position) && EQ (XCONS (position)->car, Qmenu_bar)))
     {
 #if 0 /* Using the frame the mouse is on may not be right.  */
       /* Use the mouse's current position.  */
@@ -967,9 +968,7 @@ on the left of the dialog box and all following items on the right.\n\
       else
 	window = selected_window;
 #endif
-      /* Decode the first argument: find the window and the coordinates.  */
-      if (EQ (position, Qt))
-	window = selected_window;
+      window = selected_window;
     }
   else if (CONSP (position))
     {