comparison src/xfaces.c @ 90428:a8190f7e546e

Merge from emacs--devo--0 Patches applied: * emacs--devo--0 (patch 285-296) - Update from CVS - Merge from gnus--rel--5.10 - Update from CVS: admin/FOR-RELEASE: Update refcard section. * gnus--rel--5.10 (patch 102-104) - Update from CVS Revision: [e-mail]/emacs--unicode--0--patch-64

90427:ddb25860d044

     struct font_name *font1, *font2;
     int compare_pt_p, avgwidth;
{
  int i;

  for (i = 0; i < DIM (font_sort_order); ++i)
    {
      int xlfd_idx = font_sort_order[i];

      if (compare_pt_p || xlfd_idx != XLFD_POINT_SIZE)

  exact_p = 0;

  if (needs_overstrike)
    *needs_overstrike = 0;

  /* Start with the first non-scalable font in the list.  */
  for (i = 0; i < nfonts; ++i)
    if (!font_scalable_p (fonts + i))
      break;

  /* Find the best match among the non-scalable fonts.  */
  if (i < nfonts)
    {
      best = fonts + i;

      for (i = 1; i < nfonts; ++i)
	if (!font_scalable_p (fonts + i)
	    && better_font_p (specified, fonts + i, best, 1, avgwidth))
	  {
	    best = fonts + i;

	    exact_p = exact_face_match_p (specified, best, avgwidth);
	    if (exact_p)
	      break;
	  }
    }
  else
    best = NULL;

  /* Unless we found an exact match among non-scalable fonts, see if
     we can find a better match among scalable fonts.  */
  if (!exact_p)
    {

	non_scalable_has_exact_height_p = 0;

      for (i = 0; i < nfonts; ++i)
	if (font_scalable_p (fonts + i))
	  {
	    if (best == NULL
		|| better_font_p (specified, fonts + i, best, 0, 0)
		|| (!non_scalable_has_exact_height_p
		    && !better_font_p (specified, best, fonts + i, 0, 0)))
	      {
		non_scalable_has_exact_height_p = 1;
		best = fonts + i;
	      }
	  }

      if (needs_overstrike)
	{
	  enum xlfd_weight want_weight = specified[XLFD_WEIGHT];
	  enum xlfd_weight got_weight = best->numeric[XLFD_WEIGHT];

	  if (want_weight > XLFD_WEIGHT_MEDIUM && want_weight > got_weight)
	    {
	      /* We want a bold font, but didn't get one; try to use
		 overstriking instead to simulate bold-face.  However,
		 don't overstrike an already-bold fontn unless the
		 desired weight grossly exceeds the available weight.  */
	      if (got_weight > XLFD_WEIGHT_MEDIUM)
		*needs_overstrike = (got_weight - want_weight) > 2;
	      else
		*needs_overstrike = 1;
	    }
	}
    }

  if (font_scalable_p (best))
    font_name = build_scalable_font_name (f, best, pt);

  check_lface (lface);
  bcopy (XVECTOR (lface)->contents, attrs, sizeof attrs);
  face = realize_face (c, attrs, DEFAULT_FACE_ID);

#ifdef HAVE_WINDOW_SYSTEM
#ifdef HAVE_X_WINDOWS  
  if (face->font != FRAME_FONT (f))
    /* As the font specified for the frame was not acceptable as a
       font for the default face (perhaps because auto-scaled fonts
       are rejected), we must adjust the frame font.  */
    x_set_font (f, build_string (face->font_name), Qnil);

90428:a8190f7e546e

     struct font_name *font1, *font2;
     int compare_pt_p, avgwidth;
{
  int i;

  /* Any font is better than no font.  */
  if (! font1)
    return 0;
  if (! font2)
    return 1;

  for (i = 0; i < DIM (font_sort_order); ++i)
    {
      int xlfd_idx = font_sort_order[i];

      if (compare_pt_p || xlfd_idx != XLFD_POINT_SIZE)

  exact_p = 0;

  if (needs_overstrike)
    *needs_overstrike = 0;

  best = NULL;

  /* Find the best match among the non-scalable fonts.  */
  for (i = 0; i < nfonts; ++i)
    if (!font_scalable_p (fonts + i)
	&& better_font_p (specified, fonts + i, best, 1, avgwidth))
      {
	best = fonts + i;

	exact_p = exact_face_match_p (specified, best, avgwidth);
	if (exact_p)
	  break;
      }

  /* Unless we found an exact match among non-scalable fonts, see if
     we can find a better match among scalable fonts.  */
  if (!exact_p)
    {

	non_scalable_has_exact_height_p = 0;

      for (i = 0; i < nfonts; ++i)
	if (font_scalable_p (fonts + i))
	  {
	    if (better_font_p (specified, fonts + i, best, 0, 0)
		|| (!non_scalable_has_exact_height_p
		    && !better_font_p (specified, best, fonts + i, 0, 0)))
	      {
		non_scalable_has_exact_height_p = 1;
		best = fonts + i;
	      }
	  }
    }

  /* We should have found SOME font.  */
  if (best == NULL)
    abort ();

  if (! exact_p && needs_overstrike)
    {
      enum xlfd_weight want_weight = specified[XLFD_WEIGHT];
      enum xlfd_weight got_weight = best->numeric[XLFD_WEIGHT];

      if (want_weight > XLFD_WEIGHT_MEDIUM && want_weight > got_weight)
	{
	  /* We want a bold font, but didn't get one; try to use
	     overstriking instead to simulate bold-face.  However,
	     don't overstrike an already-bold fontn unless the
	     desired weight grossly exceeds the available weight.  */
	  if (got_weight > XLFD_WEIGHT_MEDIUM)
	    *needs_overstrike = (got_weight - want_weight) > 2;
	  else
	    *needs_overstrike = 1;
	}
    }

  if (font_scalable_p (best))
    font_name = build_scalable_font_name (f, best, pt);

  check_lface (lface);
  bcopy (XVECTOR (lface)->contents, attrs, sizeof attrs);
  face = realize_face (c, attrs, DEFAULT_FACE_ID);

#ifdef HAVE_WINDOW_SYSTEM
#ifdef HAVE_X_WINDOWS
  if (face->font != FRAME_FONT (f))
    /* As the font specified for the frame was not acceptable as a
       font for the default face (perhaps because auto-scaled fonts
       are rejected), we must adjust the frame font.  */
    x_set_font (f, build_string (face->font_name), Qnil);