Mercurial > emacs
comparison src/xmenu.c @ 2153:42ceb87b43a1
(Fx_popup_menu): Allow a frame instead of a window, in arg.
Use Fcar, Fcdr when extracting from event, to check data types.
author | Richard M. Stallman <rms@gnu.org> |
---|---|
date | Fri, 12 Mar 1993 10:15:36 +0000 |
parents | 1b6e54507323 |
children | 0639c52f017c |
comparison
equal
deleted
inserted
replaced
2152:078737073080 | 2153:42ceb87b43a1 |
---|---|
130 x = Fcar (tem); | 130 x = Fcar (tem); |
131 y = Fcar (Fcdr (tem)); | 131 y = Fcar (Fcdr (tem)); |
132 } | 132 } |
133 else | 133 else |
134 { | 134 { |
135 tem = EVENT_START (position); | 135 tem = Fcar (Fcdr (position)); /* EVENT_START (position) */ |
136 window = POSN_WINDOW (tem); | 136 window = Fcar (tem); /* POSN_WINDOW (tem) */ |
137 tem = POSN_WINDOW_POSN (tem); | 137 tem = Fcar (Fcdr (Fcdr (tem))); /* POSN_WINDOW_POSN (tem) */ |
138 x = Fcar (tem); | 138 x = Fcar (tem); |
139 y = Fcdr (tem); | 139 y = Fcdr (tem); |
140 } | 140 } |
141 CHECK_NUMBER (x, 0); | 141 CHECK_NUMBER (x, 0); |
142 CHECK_NUMBER (y, 0); | 142 CHECK_NUMBER (y, 0); |