mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-31 09:20:54 -08:00
Code Issues Projects Releases Wiki Activity

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

Browse source 
Use Fcar, Fcdr when extracting from event, to check data types.
This commit is contained in:
Richard M. Stallman 1993-03-12 10:15:36 +00:00
parent 12740e58f3
commit 933ff4729c
1 changed files with 3 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

6
src/xmenu.c
View file

@ -132,9 +132,9 @@ be the return value for that line (i.e. if it is selected).")
}
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);
}