Mercurial > hg > xemacs-beta

comparison src/mule-charset.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 c438060b26c6
children ecf1ebac70d8
comparison
equal deleted inserted replaced
2285:914c5afaac33 2286:04bc9d2f42c7
132 mark_object (cs->ccl_program); 132 mark_object (cs->ccl_program);
133 return cs->name; 133 return cs->name;
134 } 134 }
135 135
136 static void 136 static void
137 print_charset (Lisp_Object obj, Lisp_Object printcharfun, int escapeflag) 137 print_charset (Lisp_Object obj, Lisp_Object printcharfun,
138 int UNUSED (escapeflag))
138 { 139 {
139 Lisp_Charset *cs = XCHARSET (obj); 140 Lisp_Charset *cs = XCHARSET (obj);
140 141
141 if (print_readably) 142 if (print_readably)
142 printing_unreadable_object ("#<charset %s 0x%x>", 143 printing_unreadable_object ("#<charset %s 0x%x>",
380 { 381 {
381 Lisp_Object *charset_list; 382 Lisp_Object *charset_list;
382 }; 383 };
383 384
384 static int 385 static int
385 add_charset_to_list_mapper (Lisp_Object key, Lisp_Object value, 386 add_charset_to_list_mapper (Lisp_Object UNUSED (key), Lisp_Object value,
386 void *charset_list_closure) 387 void *charset_list_closure)
387 { 388 {
388 /* This function can GC */ 389 /* This function can GC */
389 struct charset_list_closure *chcl = 390 struct charset_list_closure *chcl =
390 (struct charset_list_closure*) charset_list_closure; 391 (struct charset_list_closure*) charset_list_closure;
1012 1013
1013 DEFSYMBOL (Qcomposite); 1014 DEFSYMBOL (Qcomposite);
1014 } 1015 }
1015 1016
1016 static int 1017 static int
1017 init_charset_unicode_tables_mapper (Lisp_Object key, Lisp_Object value, 1018 init_charset_unicode_tables_mapper (Lisp_Object UNUSED (key),
1018 void *closure) 1019 Lisp_Object value, void *UNUSED (closure))
1019 { 1020 {
1020 init_charset_unicode_tables (value); 1021 init_charset_unicode_tables (value);
1021 return 0; 1022 return 0;
1022 } 1023 }
1023 1024