comparison src/fontset.c @ 88546:7471723e43b0

(Fclear_face_cache): Declare. (accumulate_font_info): Commented-out (unused). (face_for_char, Fset_fontset_font, Ffontset_info): Remove unused variables.

88545:2f6c9323d466

#define xassert(X)	do {if (!(X)) abort ();} while (0)
#undef INLINE
#define INLINE
#endif


/* FONTSET

   A fontset is a collection of font related information to give
   similar appearance (style, etc) of characters.  There are two kinds

face_for_char (f, face, c)
     FRAME_PTR f;
     struct face *face;
     int c;
{
  Lisp_Object fontset, elt;
  struct face *new_face;

  xassert (fontset_id_valid_p (face->fontset));
  fontset = FONTSET_FROM_ID (face->fontset);
  xassert (!BASE_FONTSET_P (fontset));

static void
free_realized_fontsets (base)
     Lisp_Object base;
{
  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
     that is not efficient.  */
  BLOCK_INPUT;

     (name, charset, font_spec, frame)
     Lisp_Object name, charset, font_spec, frame;
{
  Lisp_Object fontset;
  Lisp_Object family, registry;
  int charset_id;

  fontset = check_fontset_name (name);

  if (VECTORP (font_spec))
    {

	  ? build_string (face->font_name)
	  : Qnil);
}


/* 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:
	(CHAR FONT-SPEC) or ((FROM . TO) FONT-SPEC)
   The current leaf is indexed by CHARACTER and has value ELT.  This

	}
    }
  XSETCDR (last, Fcons (Fcons (character, Fcons (elt, Qnil)), Qnil));
  XSETCAR (arg, XCDR (last));
}


DEFUN ("fontset-info", Ffontset_info, Sfontset_info, 1, 2, 0,
       doc: /* Return information about a fontset named NAME on frame FRAME.
The value is a vector:
  [ SIZE HEIGHT ((CHARSET-OR-RANGE FONT-SPEC OPENED ...) ...) ],

  /* If fonts are opened for FONT-SPEC, append the names of the fonts to
     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]);
	       CONSP (face_list); face_list = XCDR (face_list))
	    {

88546:7471723e43b0

#define xassert(X)	do {if (!(X)) abort ();} while (0)
#undef INLINE
#define INLINE
#endif

EXFUN (Fclear_face_cache, 1);

/* FONTSET

   A fontset is a collection of font related information to give
   similar appearance (style, etc) of characters.  There are two kinds

face_for_char (f, face, c)
     FRAME_PTR f;
     struct face *face;
     int c;
{
  Lisp_Object fontset;
  struct face *new_face;

  xassert (fontset_id_valid_p (face->fontset));
  fontset = FONTSET_FROM_ID (face->fontset);
  xassert (!BASE_FONTSET_P (fontset));

static void
free_realized_fontsets (base)
     Lisp_Object base;
{
#if 0
  int id;

  /* 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
     that is not efficient.  */
  BLOCK_INPUT;

     (name, charset, font_spec, frame)
     Lisp_Object name, charset, font_spec, frame;
{
  Lisp_Object fontset;
  Lisp_Object family, registry;

  fontset = check_fontset_name (name);

  if (VECTORP (font_spec))
    {

	  ? build_string (face->font_name)
	  : Qnil);
}


#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:
	(CHAR FONT-SPEC) or ((FROM . TO) FONT-SPEC)
   The current leaf is indexed by CHARACTER and has value ELT.  This

	}
    }
  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.
The value is a vector:
  [ SIZE HEIGHT ((CHARSET-OR-RANGE FONT-SPEC OPENED ...) ...) ],

  /* If fonts are opened for FONT-SPEC, append the names of the fonts to
     FONT-SPEC.  */
  for (tail = val; CONSP (tail); tail = XCDR (tail))
    {
      elt = XCAR (tail);
      for (i = 0; i < n_realized; i++)
	{
	  Lisp_Object face_list, fontname;

	  for (face_list = FONTSET_FACE_ALIST (realized[i]);
	       CONSP (face_list); face_list = XCDR (face_list))
	    {