Mercurial > hg > xemacs-beta

comparison src/ui-gtk.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 95fee4a1420e
children ecf1ebac70d8
comparison
equal deleted inserted replaced
2285:914c5afaac33 2286:04bc9d2f42c7
316 mark_object (data->function_name); 316 mark_object (data->function_name);
317 return (Qnil); 317 return (Qnil);
318 } 318 }
319 319
320 static void 320 static void
321 ffi_object_printer (Lisp_Object obj, Lisp_Object printcharfun, int escapeflag) 321 ffi_object_printer (Lisp_Object obj, Lisp_Object printcharfun,
322 int UNUSED (escapeflag))
322 { 323 {
323 if (print_readably) 324 if (print_readably)
324 printing_unreadable_object ("#<ffi %p>", XFFI (obj)->function_ptr); 325 printing_unreadable_object ("#<ffi %p>", XFFI (obj)->function_ptr);
325 326
326 write_fmt_string_lisp (printcharfun, "#<ffi %S", 1, XFFI (obj)->function_name); 327 write_fmt_string_lisp (printcharfun, "#<ffi %S", 1, XFFI (obj)->function_name);
503 void * (*func) (dll_handle, const CIbyte *); 504 void * (*func) (dll_handle, const CIbyte *);
504 Ibyte *obj_name; 505 Ibyte *obj_name;
505 void **storage; 506 void **storage;
506 }; 507 };
507 508
508 static void __dll_mapper (gpointer key, gpointer value, gpointer user_data) 509 static void __dll_mapper (gpointer UNUSED (key), gpointer value,
510 gpointer user_data)
509 { 511 {
510 struct __dll_mapper_closure *closure = (struct __dll_mapper_closure *) user_data; 512 struct __dll_mapper_closure *closure = (struct __dll_mapper_closure *) user_data;
511 513
512 if (*(closure->storage) == NULL) 514 if (*(closure->storage) == NULL)
513 { 515 {
784 786
785 787
786 788
787 /* GtkObject wrapping for Lisp */ 789 /* GtkObject wrapping for Lisp */
788 static void 790 static void
789 emacs_gtk_object_printer (Lisp_Object obj, Lisp_Object printcharfun, int escapeflag) 791 emacs_gtk_object_printer (Lisp_Object obj, Lisp_Object printcharfun,
792 int UNUSED (escapeflag))
790 { 793 {
791 if (print_readably) 794 if (print_readably)
792 printing_unreadable_object ("#<GtkObject %p>", XGTK_OBJECT (obj)->object); 795 printing_unreadable_object ("#<GtkObject %p>", XGTK_OBJECT (obj)->object);
793 796
794 write_c_string (printcharfun, "#<GtkObject ("); 797 write_c_string (printcharfun, "#<GtkObject (");
967 can mark it as dead, otherwise even our print routine (which calls 970 can mark it as dead, otherwise even our print routine (which calls
968 GTK_OBJECT_TYPE) will crap out and die. This is also used in the 971 GTK_OBJECT_TYPE) will crap out and die. This is also used in the
969 lisp_to_gtk_type() routine to defend against passing dead objects 972 lisp_to_gtk_type() routine to defend against passing dead objects
970 to GTK routines. */ 973 to GTK routines. */
971 static void 974 static void
972 __notice_object_destruction (GtkObject *obj, gpointer user_data) 975 __notice_object_destruction (GtkObject *UNUSED (obj), gpointer user_data)
973 { 976 {
974 ungcpro_popup_callbacks ((GUI_ID) user_data); 977 ungcpro_popup_callbacks ((GUI_ID) user_data);
975 } 978 }
976 979
977 Lisp_Object build_gtk_object (GtkObject *obj) 980 Lisp_Object build_gtk_object (GtkObject *obj)
1102 static const struct memory_description emacs_gtk_boxed_description [] = { 1105 static const struct memory_description emacs_gtk_boxed_description [] = {
1103 { XD_END } 1106 { XD_END }
1104 }; 1107 };
1105 1108
1106 static void 1109 static void
1107 emacs_gtk_boxed_printer (Lisp_Object obj, Lisp_Object printcharfun, int escapeflag) 1110 emacs_gtk_boxed_printer (Lisp_Object obj, Lisp_Object printcharfun,
1111 int UNUSED (escapeflag))
1108 { 1112 {
1109 if (print_readably) 1113 if (print_readably)
1110 printing_unreadable_object ("#<GtkBoxed %p>", XGTK_BOXED (obj)->object); 1114 printing_unreadable_object ("#<GtkBoxed %p>", XGTK_BOXED (obj)->object);
1111 1115
1112 write_c_string (printcharfun, "#<GtkBoxed ("); 1116 write_c_string (printcharfun, "#<GtkBoxed (");
1113 write_c_string (printcharfun, gtk_type_name (XGTK_BOXED (obj)->object_type)); 1117 write_c_string (printcharfun, gtk_type_name (XGTK_BOXED (obj)->object_type));
1114 write_fmt_string (printcharfun, ") %p>", (void *) XGTK_BOXED (obj)->object); 1118 write_fmt_string (printcharfun, ") %p>", (void *) XGTK_BOXED (obj)->object);
1115 } 1119 }
1116 1120
1117 static int 1121 static int
1118 emacs_gtk_boxed_equality (Lisp_Object o1, Lisp_Object o2, int depth) 1122 emacs_gtk_boxed_equality (Lisp_Object o1, Lisp_Object o2, int UNUSED (depth))
1119 { 1123 {
1120 emacs_gtk_boxed_data *data1 = XGTK_BOXED(o1); 1124 emacs_gtk_boxed_data *data1 = XGTK_BOXED(o1);
1121 emacs_gtk_boxed_data *data2 = XGTK_BOXED(o2); 1125 emacs_gtk_boxed_data *data2 = XGTK_BOXED(o2);
1122 1126
1123 return ((data1->object == data2->object) && 1127 return ((data1->object == data2->object) &&
1124 (data1->object_type == data2->object_type)); 1128 (data1->object_type == data2->object_type));
1125 } 1129 }
1126 1130
1127 static unsigned long 1131 static unsigned long
1128 emacs_gtk_boxed_hash (Lisp_Object obj, int depth) 1132 emacs_gtk_boxed_hash (Lisp_Object obj, int UNUSED (depth))
1129 { 1133 {
1130 emacs_gtk_boxed_data *data = XGTK_BOXED(obj); 1134 emacs_gtk_boxed_data *data = XGTK_BOXED(obj);
1131 return (HASH2 ((unsigned long)data->object, data->object_type)); 1135 return (HASH2 ((unsigned long)data->object, data->object_type));
1132 } 1136 }
1133 1137