Mercurial > hg > xemacs-beta

comparison src/faces.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 41c5752314c9
children ecf1ebac70d8
comparison
equal deleted inserted replaced
2285:914c5afaac33 2286:04bc9d2f42c7
95 95
96 return face->plist; 96 return face->plist;
97 } 97 }
98 98
99 static void 99 static void
100 print_face (Lisp_Object obj, Lisp_Object printcharfun, int escapeflag) 100 print_face (Lisp_Object obj, Lisp_Object printcharfun, int UNUSED (escapeflag))
101 { 101 {
102 Lisp_Face *face = XFACE (obj); 102 Lisp_Face *face = XFACE (obj);
103 103
104 if (print_readably) 104 if (print_readably)
105 { 105 {
287 /************************************************************************/ 287 /************************************************************************/
288 /* face read syntax */ 288 /* face read syntax */
289 /************************************************************************/ 289 /************************************************************************/
290 290
291 static int 291 static int
292 face_name_validate (Lisp_Object keyword, Lisp_Object value, 292 face_name_validate (Lisp_Object UNUSED (keyword), Lisp_Object value,
293 Error_Behavior errb) 293 Error_Behavior errb)
294 { 294 {
295 if (ERRB_EQ (errb, ERROR_ME)) 295 if (ERRB_EQ (errb, ERROR_ME))
296 { 296 {
297 CHECK_SYMBOL (value); 297 CHECK_SYMBOL (value);
385 { 385 {
386 Lisp_Object *face_list; 386 Lisp_Object *face_list;
387 }; 387 };
388 388
389 static int 389 static int
390 add_face_to_list_mapper (Lisp_Object key, Lisp_Object value, 390 add_face_to_list_mapper (Lisp_Object UNUSED (key), Lisp_Object value,
391 void *face_list_closure) 391 void *face_list_closure)
392 { 392 {
393 /* This function can GC */ 393 /* This function can GC */
394 struct face_list_closure *fcl = 394 struct face_list_closure *fcl =
395 (struct face_list_closure *) face_list_closure; 395 (struct face_list_closure *) face_list_closure;
425 return faces_list_internal (Vtemporary_faces_cache); 425 return faces_list_internal (Vtemporary_faces_cache);
426 } 426 }
427 427
428 428
429 static int 429 static int
430 mark_face_as_clean_mapper (Lisp_Object key, Lisp_Object value, 430 mark_face_as_clean_mapper (Lisp_Object UNUSED (key), Lisp_Object value,
431 void *flag_closure) 431 void *flag_closure)
432 { 432 {
433 /* This function can GC */ 433 /* This function can GC */
434 int *flag = (int *) flag_closure; 434 int *flag = (int *) flag_closure;
435 XFACE (value)->dirty = *flag; 435 XFACE (value)->dirty = *flag;