# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 765399803 0
# Node ID 14a0a3fe93fdad2ecfabdc7ac7aa86d1e8c3246f
# Parent  a537d9d83e52dbd7940dcb86b422c94213a8f81d
(Fx_popup_dialog): If POSITION is t, use selected frame.

diff -r a537d9d83e52 -r 14a0a3fe93fd src/xmenu.c
--- a/src/xmenu.c	Sun Apr 03 18:19:53 1994 +0000
+++ b/src/xmenu.c	Sun Apr 03 19:03:23 1994 +0000
@@ -856,6 +856,7 @@
   /* 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 @@
 	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))
     {