From b14db4d73b5ec7fb35a2cba7e404820239e8d2ed Mon Sep 17 00:00:00 2001
From: "Richard M. Stallman" <rms@gnu.org>
Date: Sun, 3 Apr 1994 19:03:23 +0000
Subject: [PATCH] (Fx_popup_dialog): If POSITION is t, use selected frame.

---
 src/xmenu.c | 9 +++++++++
 1 file changed, 9 insertions(+)

diff --git a/src/xmenu.c b/src/xmenu.c
index 0d616b6c067..757fa092de4 100644
--- a/src/xmenu.c
+++ b/src/xmenu.c
@@ -856,6 +856,7 @@ The return value is VALUE from the chosen item.")
   /* Decode the first argument: find the window or frame to use.  */
   if (EQ (position, Qt))
     {
+#if 0 /* Using the frame the mouse is on may not be right.  */
       /* Use the mouse's current position.  */
       FRAME_PTR new_f = 0;
       Lisp_Object bar_window;
@@ -869,6 +870,14 @@ The return value is VALUE from the chosen item.")
 	XSET (window, Lisp_Frame, new_f);
       else
 	window = selected_window;
+#endif
+      /* Decode the first argument: find the window and the coordinates.  */
+      if (EQ (position, Qt))
+	{
+          window = selected_window;
+          XFASTINT (x) = 0;
+          XFASTINT (y) = 0;
+	}
     }
   else if (CONSP (position))
     {
-- 
2.39.5