Mercurial > hg > xemacs-beta

comparison src/chartab.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 4542b72c005e
children ecf1ebac70d8
comparison
equal deleted inserted replaced
2285:914c5afaac33 2286:04bc9d2f42c7
304 Lisp_Object printcharfun; 304 Lisp_Object printcharfun;
305 int first; 305 int first;
306 }; 306 };
307 307
308 static int 308 static int
309 print_table_entry (struct chartab_range *range, Lisp_Object table, 309 print_table_entry (struct chartab_range *range, Lisp_Object UNUSED (table),
310 Lisp_Object val, void *arg) 310 Lisp_Object val, void *arg)
311 { 311 {
312 struct ptemap *a = (struct ptemap *) arg; 312 struct ptemap *a = (struct ptemap *) arg;
313 struct gcpro gcpro1; 313 struct gcpro gcpro1;
314 Lisp_Object lisprange; 314 Lisp_Object lisprange;
321 UNGCPRO; 321 UNGCPRO;
322 return 0; 322 return 0;
323 } 323 }
324 324
325 static void 325 static void
326 print_char_table (Lisp_Object obj, Lisp_Object printcharfun, int escapeflag) 326 print_char_table (Lisp_Object obj, Lisp_Object printcharfun,
327 int UNUSED (escapeflag))
327 { 328 {
328 Lisp_Char_Table *ct = XCHAR_TABLE (obj); 329 Lisp_Char_Table *ct = XCHAR_TABLE (obj);
329 struct chartab_range range; 330 struct chartab_range range;
330 struct ptemap arg; 331 struct ptemap arg;
331 332
777 778
778 return get_char_table (XCHAR (character), char_table); 779 return get_char_table (XCHAR (character), char_table);
779 } 780 }
780 781
781 static int 782 static int
782 copy_mapper (struct chartab_range *range, Lisp_Object table, 783 copy_mapper (struct chartab_range *range, Lisp_Object UNUSED (table),
783 Lisp_Object val, void *arg) 784 Lisp_Object val, void *arg)
784 { 785 {
785 put_char_table (VOID_TO_LISP (arg), range, val); 786 put_char_table (VOID_TO_LISP (arg), range, val);
786 return 0; 787 return 0;
787 } 788 }
1437 Lisp_Object retval; 1438 Lisp_Object retval;
1438 }; 1439 };
1439 1440
1440 static int 1441 static int
1441 slow_map_char_table_fun (struct chartab_range *range, 1442 slow_map_char_table_fun (struct chartab_range *range,
1442 Lisp_Object table, Lisp_Object val, void *arg) 1443 Lisp_Object UNUSED (table), Lisp_Object val,
1444 void *arg)
1443 { 1445 {
1444 struct slow_map_char_table_arg *closure = 1446 struct slow_map_char_table_arg *closure =
1445 (struct slow_map_char_table_arg *) arg; 1447 (struct slow_map_char_table_arg *) arg;
1446 1448
1447 closure->retval = call2 (closure->function, encode_char_table_range (range), 1449 closure->retval = call2 (closure->function, encode_char_table_range (range),
1481 /************************************************************************/ 1483 /************************************************************************/
1482 /* Char table read syntax */ 1484 /* Char table read syntax */
1483 /************************************************************************/ 1485 /************************************************************************/
1484 1486
1485 static int 1487 static int
1486 chartab_type_validate (Lisp_Object keyword, Lisp_Object value, 1488 chartab_type_validate (Lisp_Object UNUSED (keyword), Lisp_Object value,
1487 Error_Behavior errb) 1489 Error_Behavior UNUSED (errb))
1488 { 1490 {
1489 /* #### should deal with ERRB */ 1491 /* #### should deal with ERRB */
1490 symbol_to_char_table_type (value); 1492 symbol_to_char_table_type (value);
1491 return 1; 1493 return 1;
1492 } 1494 }
1493 1495
1494 /* #### Document the print/read format; esp. what's this cons element? */ 1496 /* #### Document the print/read format; esp. what's this cons element? */
1495 1497
1496 static int 1498 static int
1497 chartab_data_validate (Lisp_Object keyword, Lisp_Object value, 1499 chartab_data_validate (Lisp_Object UNUSED (keyword), Lisp_Object value,
1498 Error_Behavior errb) 1500 Error_Behavior UNUSED (errb))
1499 { 1501 {
1500 Lisp_Object rest; 1502 Lisp_Object rest;
1501 1503
1502 /* #### should deal with ERRB */ 1504 /* #### should deal with ERRB */
1503 EXTERNAL_LIST_LOOP (rest, value) 1505 EXTERNAL_LIST_LOOP (rest, value)