Commit 933ff472 authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

(Fx_popup_menu): Allow a frame instead of a window, in arg.

Use Fcar, Fcdr when extracting from event, to check data types.
parent 12740e58
......@@ -132,9 +132,9 @@ be the return value for that line (i.e. if it is selected).")
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);
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment