# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 731931336 0
# Node ID 42ceb87b43a1bdeb6ebc0d01ef41c74dbf0eaa0a
# Parent  078737073080a963cbdb7a7a5231c7f22a72e6f9
(Fx_popup_menu): Allow a frame instead of a window, in arg.
Use Fcar, Fcdr when extracting from event, to check data types.

diff -r 078737073080 -r 42ceb87b43a1 src/xmenu.c
--- a/src/xmenu.c	Fri Mar 12 06:27:05 1993 +0000
+++ b/src/xmenu.c	Fri Mar 12 10:15:36 1993 +0000
@@ -132,9 +132,9 @@
     }
   else
     {
-      tem = EVENT_START (position);
-      window = POSN_WINDOW (tem);
-      tem = POSN_WINDOW_POSN (tem);
+      tem = Fcar (Fcdr (position));  /* EVENT_START (position) */
+      window = Fcar (tem);	     /* POSN_WINDOW (tem) */
+      tem = Fcar (Fcdr (Fcdr (tem))); /* POSN_WINDOW_POSN (tem) */
       x = Fcar (tem);
       y = Fcdr (tem);
     }