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

(menubar_selection_callback): Use the `arg' slot of

Browse source 
input events to queue additional information, instead of consing.
This commit is contained in:
Gerd Moellmann 2000-07-13 14:07:57 +00:00
parent da8f73681d
commit 205012787b
1 changed files with 12 additions and 8 deletions
Download patch file Download diff file Expand all files Collapse all files

20
src/w32menu.c
View file

@ -1002,27 +1002,31 @@ menubar_selection_callback (FRAME_PTR f, void * client_data)
Lisp_Object frame;
XSETFRAME (frame, f);
buf.kind = menu_bar_event;
buf.frame_or_window = Fcons (frame, Fcons (Qmenu_bar, Qnil));
buf.kind = MENU_BAR_EVENT;
buf.frame_or_window = frame;
buf.arg = frame;
kbd_buffer_store_event (&buf);
for (j = 0; j < submenu_depth; j++)
if (!NILP (subprefix_stack[j]))
{
buf.kind = menu_bar_event;
buf.frame_or_window = Fcons (frame, subprefix_stack[j]);
buf.kind = MENU_BAR_EVENT;
buf.frame_or_window = frame;
buf.arg = subprefix_stack[j];
kbd_buffer_store_event (&buf);
}
if (!NILP (prefix))
{
buf.kind = menu_bar_event;
buf.frame_or_window = Fcons (frame, prefix);
buf.kind = MENU_BAR_EVENT;
buf.frame_or_window = frame;
buf.arg = prefix;
kbd_buffer_store_event (&buf);
}
buf.kind = menu_bar_event;
buf.frame_or_window = Fcons (frame, entry);
buf.kind = MENU_BAR_EVENT;
buf.frame_or_window = frame;
buf.arg = entry;
kbd_buffer_store_event (&buf);
return;