comparison src/syntax.c @ 2286:04bc9d2f42c7

[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 54e1ecdc5778
children 13a418960a88
comparison
equal deleted inserted replaced
2285:914c5afaac33 2286:04bc9d2f42c7
456 456
457 It might be worth it at some point to merge provided syntax tables 457 It might be worth it at some point to merge provided syntax tables
458 outward to the current buffer (#### rewrite in English please?!). */ 458 outward to the current buffer (#### rewrite in English please?!). */
459 459
460 void 460 void
461 update_syntax_cache (struct syntax_cache *cache, Charxpos cpos, int count) 461 update_syntax_cache (struct syntax_cache *cache, Charxpos cpos,
462 int UNUSED (count))
462 { 463 {
463 Lisp_Object tmp_table; 464 Lisp_Object tmp_table;
464 Bytexpos pos; 465 Bytexpos pos;
465 Bytexpos lim; 466 Bytexpos lim;
466 Bytexpos next, prev; 467 Bytexpos next, prev;
613 } 614 }
614 615
615 #ifdef MULE 616 #ifdef MULE
616 617
617 enum syntaxcode 618 enum syntaxcode
618 charset_syntax (struct buffer *buf, Lisp_Object charset, int *multi_p_out) 619 charset_syntax (struct buffer *UNUSED (buf), Lisp_Object UNUSED (charset),
620 int *multi_p_out)
619 { 621 {
620 *multi_p_out = 1; 622 *multi_p_out = 1;
621 /* !!#### get this right */ 623 /* !!#### get this right */
622 return Spunct; 624 return Spunct;
623 } 625 }
2232 When `set-syntax-table' is called, we set the buffer's mirror 2234 When `set-syntax-table' is called, we set the buffer's mirror
2233 syntax table as well. 2235 syntax table as well.
2234 */ 2236 */
2235 2237
2236 static int 2238 static int
2237 copy_to_mirrortab (struct chartab_range *range, Lisp_Object table, 2239 copy_to_mirrortab (struct chartab_range *range, Lisp_Object UNUSED (table),
2238 Lisp_Object val, void *arg) 2240 Lisp_Object val, void *arg)
2239 { 2241 {
2240 Lisp_Object mirrortab = VOID_TO_LISP (arg); 2242 Lisp_Object mirrortab = VOID_TO_LISP (arg);
2241 2243
2242 if (CONSP (val)) 2244 if (CONSP (val))
2245 put_char_table (mirrortab, range, val); 2247 put_char_table (mirrortab, range, val);
2246 return 0; 2248 return 0;
2247 } 2249 }
2248 2250
2249 static int 2251 static int
2250 copy_if_not_already_present (struct chartab_range *range, Lisp_Object table, 2252 copy_if_not_already_present (struct chartab_range *range,
2253 Lisp_Object UNUSED (table),
2251 Lisp_Object val, void *arg) 2254 Lisp_Object val, void *arg)
2252 { 2255 {
2253 Lisp_Object mirrortab = VOID_TO_LISP (arg); 2256 Lisp_Object mirrortab = VOID_TO_LISP (arg);
2254 if (CONSP (val)) 2257 if (CONSP (val))
2255 val = XCAR (val); 2258 val = XCAR (val);