Mercurial > hg > xemacs-beta
diff src/ui-gtk.c @ 2286:04bc9d2f42c7
[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 | 95fee4a1420e |
| children | ecf1ebac70d8 |
line wrap: on
line diff
--- a/src/ui-gtk.c Mon Sep 20 19:11:29 2004 +0000 +++ b/src/ui-gtk.c Mon Sep 20 19:20:08 2004 +0000 @@ -318,7 +318,8 @@ } static void -ffi_object_printer (Lisp_Object obj, Lisp_Object printcharfun, int escapeflag) +ffi_object_printer (Lisp_Object obj, Lisp_Object printcharfun, + int UNUSED (escapeflag)) { if (print_readably) printing_unreadable_object ("#<ffi %p>", XFFI (obj)->function_ptr); @@ -505,7 +506,8 @@ void **storage; }; -static void __dll_mapper (gpointer key, gpointer value, gpointer user_data) +static void __dll_mapper (gpointer UNUSED (key), gpointer value, + gpointer user_data) { struct __dll_mapper_closure *closure = (struct __dll_mapper_closure *) user_data; @@ -786,7 +788,8 @@ /* GtkObject wrapping for Lisp */ static void -emacs_gtk_object_printer (Lisp_Object obj, Lisp_Object printcharfun, int escapeflag) +emacs_gtk_object_printer (Lisp_Object obj, Lisp_Object printcharfun, + int UNUSED (escapeflag)) { if (print_readably) printing_unreadable_object ("#<GtkObject %p>", XGTK_OBJECT (obj)->object); @@ -969,7 +972,7 @@ lisp_to_gtk_type() routine to defend against passing dead objects to GTK routines. */ static void -__notice_object_destruction (GtkObject *obj, gpointer user_data) +__notice_object_destruction (GtkObject *UNUSED (obj), gpointer user_data) { ungcpro_popup_callbacks ((GUI_ID) user_data); } @@ -1104,7 +1107,8 @@ }; static void -emacs_gtk_boxed_printer (Lisp_Object obj, Lisp_Object printcharfun, int escapeflag) +emacs_gtk_boxed_printer (Lisp_Object obj, Lisp_Object printcharfun, + int UNUSED (escapeflag)) { if (print_readably) printing_unreadable_object ("#<GtkBoxed %p>", XGTK_BOXED (obj)->object); @@ -1115,7 +1119,7 @@ } static int -emacs_gtk_boxed_equality (Lisp_Object o1, Lisp_Object o2, int depth) +emacs_gtk_boxed_equality (Lisp_Object o1, Lisp_Object o2, int UNUSED (depth)) { emacs_gtk_boxed_data *data1 = XGTK_BOXED(o1); emacs_gtk_boxed_data *data2 = XGTK_BOXED(o2); @@ -1125,7 +1129,7 @@ } static unsigned long -emacs_gtk_boxed_hash (Lisp_Object obj, int depth) +emacs_gtk_boxed_hash (Lisp_Object obj, int UNUSED (depth)) { emacs_gtk_boxed_data *data = XGTK_BOXED(obj); return (HASH2 ((unsigned long)data->object, data->object_type));