Mercurial > hg > xemacs-beta

comparison src/casetab.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 e22b0213b713
children 6fa9919a9a0b
comparison
equal deleted inserted replaced
2285:914c5afaac33 2286:04bc9d2f42c7
83 mark_object (CASE_TABLE_EQV (ct)); 83 mark_object (CASE_TABLE_EQV (ct));
84 return Qnil; 84 return Qnil;
85 } 85 }
86 86
87 static void 87 static void
88 print_case_table (Lisp_Object obj, Lisp_Object printcharfun, int escapeflag) 88 print_case_table (Lisp_Object obj, Lisp_Object printcharfun,
89 int UNUSED (escapeflag))
89 { 90 {
90 Lisp_Case_Table *ct = XCASE_TABLE (obj); 91 Lisp_Case_Table *ct = XCASE_TABLE (obj);
91 if (print_readably) 92 if (print_readably)
92 printing_unreadable_object ("#<case-table 0x%x>", ct->header.uid); 93 printing_unreadable_object ("#<case-table 0x%x>", ct->header.uid);
93 write_fmt_string_lisp 94 write_fmt_string_lisp
284 return new_obj; 285 return new_obj;
285 } 286 }
286 287
287 static int 288 static int
288 compute_canon_mapper (struct chartab_range *range, 289 compute_canon_mapper (struct chartab_range *range,
289 Lisp_Object table, Lisp_Object val, void *arg) 290 Lisp_Object UNUSED (table), Lisp_Object val, void *arg)
290 { 291 {
291 Lisp_Object casetab = VOID_TO_LISP (arg); 292 Lisp_Object casetab = VOID_TO_LISP (arg);
292 if (range->type == CHARTAB_RANGE_CHAR) 293 if (range->type == CHARTAB_RANGE_CHAR)
293 SET_TRT_TABLE_OF (XCASE_TABLE_CANON (casetab), range->ch, 294 SET_TRT_TABLE_OF (XCASE_TABLE_CANON (casetab), range->ch,
294 TRT_TABLE_OF (XCASE_TABLE_DOWNCASE (casetab), 295 TRT_TABLE_OF (XCASE_TABLE_DOWNCASE (casetab),
298 return 0; 299 return 0;
299 } 300 }
300 301
301 static int 302 static int
302 initialize_identity_mapper (struct chartab_range *range, 303 initialize_identity_mapper (struct chartab_range *range,
303 Lisp_Object table, Lisp_Object val, void *arg) 304 Lisp_Object UNUSED (table),
305 Lisp_Object UNUSED (val), void *arg)
304 { 306 {
305 Lisp_Object trt = VOID_TO_LISP (arg); 307 Lisp_Object trt = VOID_TO_LISP (arg);
306 if (range->type == CHARTAB_RANGE_CHAR) 308 if (range->type == CHARTAB_RANGE_CHAR)
307 SET_TRT_TABLE_OF (trt, range->ch, range->ch); 309 SET_TRT_TABLE_OF (trt, range->ch, range->ch);
308 310
309 return 0; 311 return 0;
310 } 312 }
311 313
312 static int 314 static int
313 compute_up_or_eqv_mapper (struct chartab_range *range, 315 compute_up_or_eqv_mapper (struct chartab_range *range,
314 Lisp_Object table, Lisp_Object val, void *arg) 316 Lisp_Object UNUSED (table),
317 Lisp_Object val, void *arg)
315 { 318 {
316 Lisp_Object inverse = VOID_TO_LISP (arg); 319 Lisp_Object inverse = VOID_TO_LISP (arg);
317 Ichar toch = XCHAR (val); 320 Ichar toch = XCHAR (val);
318 321
319 if (range->type == CHARTAB_RANGE_CHAR && range->ch != toch) 322 if (range->type == CHARTAB_RANGE_CHAR && range->ch != toch)