Mercurial > hg > xemacs-beta

comparison src/menubar-x.c @ 2286:04bc9d2f42c7

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[xemacs-hg @ 2004-09-20 19:18:55 by james] Mark all unused parameters as unused. Also eliminate some unneeded local variables.
author james
date Mon, 20 Sep 2004 19:20:08 +0000
parents 59bf16be00bf
children ecf1ebac70d8
comparison
equal deleted inserted replaced
2285:914c5afaac33 2286:04bc9d2f42c7
440 think he's wrong. 440 think he's wrong.
441 441
442 */ 442 */
443 443
444 static void 444 static void
445 pre_activate_callback (Widget widget, LWLIB_ID id, XtPointer client_data) 445 pre_activate_callback (Widget widget, LWLIB_ID UNUSED (id),
446 XtPointer client_data)
446 { 447 {
447 /* This function can GC */ 448 /* This function can GC */
448 struct device *d = get_device_from_display (XtDisplay (widget)); 449 struct device *d = get_device_from_display (XtDisplay (widget));
449 struct frame *f = x_any_window_to_frame (d, XtWindow (widget)); 450 struct frame *f = x_any_window_to_frame (d, XtWindow (widget));
450 Lisp_Object frame; 451 Lisp_Object frame;
645 popup_selection_callback (widget, id, client_data); 646 popup_selection_callback (widget, id, client_data);
646 /* lw_destroy_all_widgets() will be called from popup_down_callback() */ 647 /* lw_destroy_all_widgets() will be called from popup_down_callback() */
647 } 648 }
648 649
649 static void 650 static void
650 popup_menu_down_callback (Widget widget, LWLIB_ID id, XtPointer client_data) 651 popup_menu_down_callback (Widget widget, LWLIB_ID id,
652 XtPointer UNUSED (client_data))
651 { 653 {
652 if (popup_handled_p (id)) 654 if (popup_handled_p (id))
653 return; 655 return;
654 assert (popup_up_p != 0); 656 assert (popup_up_p != 0);
655 ungcpro_popup_callbacks (id); 657 ungcpro_popup_callbacks (id);
1145 1147
1146 return Vmenu_accelerator_map; 1148 return Vmenu_accelerator_map;
1147 } 1149 }
1148 1150
1149 static Lisp_Object 1151 static Lisp_Object
1150 menu_accelerator_junk_on_error (Lisp_Object errordata, Lisp_Object ignored) 1152 menu_accelerator_junk_on_error (Lisp_Object errordata,
1153 Lisp_Object UNUSED (ignored))
1151 { 1154 {
1152 Vmenu_accelerator_prefix = Qnil; 1155 Vmenu_accelerator_prefix = Qnil;
1153 Vmenu_accelerator_modifiers = Qnil; 1156 Vmenu_accelerator_modifiers = Qnil;
1154 Vmenu_accelerator_enabled = Qnil; 1157 Vmenu_accelerator_enabled = Qnil;
1155 if (!NILP (errordata)) 1158 if (!NILP (errordata))