# HG changeset patch # User Dave Love # Date 1021652986 0 # Node ID 7471723e43b0a85a000d4767288c128b42acdadb # Parent 2f6c9323d46625f9d8eadc965cfd1dacf376c145 (Fclear_face_cache): Declare. (accumulate_font_info): Commented-out (unused). (face_for_char, Fset_fontset_font, Ffontset_info): Remove unused variables. diff -r 2f6c9323d466 -r 7471723e43b0 src/fontset.c --- a/src/fontset.c Fri May 17 16:26:29 2002 +0000 +++ b/src/fontset.c Fri May 17 16:29:46 2002 +0000 @@ -49,6 +49,7 @@ #define INLINE #endif +EXFUN (Fclear_face_cache, 1); /* FONTSET @@ -439,7 +440,7 @@ struct face *face; int c; { - Lisp_Object fontset, elt; + Lisp_Object fontset; struct face *new_face; xassert (fontset_id_valid_p (face->fontset)); @@ -755,9 +756,9 @@ free_realized_fontsets (base) Lisp_Object base; { +#if 0 int id; -#if 0 /* For the moment, this doesn't work because free_realized_face doesn't remove FACE from a cache. Until we find a solution, we suppress this code, and simply use Fclear_face_cache even though @@ -828,7 +829,6 @@ { Lisp_Object fontset; Lisp_Object family, registry; - int charset_id; fontset = check_fontset_name (name); @@ -1051,6 +1051,7 @@ } +#if 0 /* unused */ /* Called from Ffontset_info via map_char_table on each leaf of fontset. ARG is a list (LAST FONT-INFO ...), where LAST is `(last ARG)' and FONT-INFOs have this form: @@ -1096,7 +1097,7 @@ XSETCDR (last, Fcons (Fcons (character, Fcons (elt, Qnil)), Qnil)); XSETCAR (arg, XCDR (last)); } - +#endif /* 0 */ DEFUN ("fontset-info", Ffontset_info, Sfontset_info, 1, 2, 0, doc: /* Return information about a fontset named NAME on frame FRAME. @@ -1182,13 +1183,9 @@ FONT-SPEC. */ for (tail = val; CONSP (tail); tail = XCDR (tail)) { - int c; - elt = XCAR (tail); for (i = 0; i < n_realized; i++) { - int face_id; - struct face *face; Lisp_Object face_list, fontname; for (face_list = FONTSET_FACE_ALIST (realized[i]);