static void push_menu_pane (Lisp_Object name, Lisp_Object prefix_vec) { ensure_menu_items (MENU_ITEMS_PANE_LENGTH); if (menu_items_submenu_depth == 0) menu_items_n_panes++; ASET (menu_items, menu_items_used, Qt); menu_items_used++; ASET (menu_items, menu_items_used, name); menu_items_used++; ASET (menu_items, menu_items_used, prefix_vec); menu_items_used++; }
static void push_menu_item (Lisp_Object name, Lisp_Object enable, Lisp_Object key, Lisp_Object def, Lisp_Object equiv, Lisp_Object type, Lisp_Object selected, Lisp_Object help) { ensure_menu_items (MENU_ITEMS_ITEM_LENGTH); ASET (menu_items, menu_items_used + MENU_ITEMS_ITEM_NAME, name); ASET (menu_items, menu_items_used + MENU_ITEMS_ITEM_ENABLE, enable); ASET (menu_items, menu_items_used + MENU_ITEMS_ITEM_VALUE, key); ASET (menu_items, menu_items_used + MENU_ITEMS_ITEM_EQUIV_KEY, equiv); ASET (menu_items, menu_items_used + MENU_ITEMS_ITEM_DEFINITION, def); ASET (menu_items, menu_items_used + MENU_ITEMS_ITEM_TYPE, type); ASET (menu_items, menu_items_used + MENU_ITEMS_ITEM_SELECTED, selected); ASET (menu_items, menu_items_used + MENU_ITEMS_ITEM_HELP, help); menu_items_used += MENU_ITEMS_ITEM_LENGTH; }