Mercurial > hg > xemacs-beta

comparison src/rangetab.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 ecf1ebac70d8
comparison
equal deleted inserted replaced
2285:914c5afaac33 2286:04bc9d2f42c7
50 mark_object (Dynarr_at (rt->entries, i).val); 50 mark_object (Dynarr_at (rt->entries, i).val);
51 return Qnil; 51 return Qnil;
52 } 52 }
53 53
54 static void 54 static void
55 print_range_table (Lisp_Object obj, Lisp_Object printcharfun, int escapeflag) 55 print_range_table (Lisp_Object obj, Lisp_Object printcharfun,
56 int UNUSED (escapeflag))
56 { 57 {
57 Lisp_Range_Table *rt = XRANGE_TABLE (obj); 58 Lisp_Range_Table *rt = XRANGE_TABLE (obj);
58 int i; 59 int i;
59 60
60 write_c_string (printcharfun, "#s(range-table data ("); 61 write_c_string (printcharfun, "#s(range-table data (");
488 /************************************************************************/ 489 /************************************************************************/
489 /* Range table read syntax */ 490 /* Range table read syntax */
490 /************************************************************************/ 491 /************************************************************************/
491 492
492 static int 493 static int
493 rangetab_data_validate (Lisp_Object keyword, Lisp_Object value, 494 rangetab_data_validate (Lisp_Object UNUSED (keyword), Lisp_Object value,
494 Error_Behavior errb) 495 Error_Behavior UNUSED (errb))
495 { 496 {
496 Lisp_Object rest; 497 Lisp_Object rest;
497 498
498 /* #### should deal with errb */ 499 /* #### should deal with errb */
499 EXTERNAL_LIST_LOOP (rest, value) 500 EXTERNAL_LIST_LOOP (rest, value)