comparison src/xfaces.c @ 34629:10675adcbf6f

(Vface_ignored_fonts): New variable. (x_face_list_fonts): Ignore fonts matching Vface_ignored_fonts. (syms_of_xfaces): Declare Vface_ignored_fonts as a Lisp variable.

34628:77fd4e6901f9

   that font selection first tries to find a good match for the font
   width specified by a face, then---within fonts with that
   width---tries to find a best match for the specified font height,
   etc.

   2. Setting face-alternative-font-family-alist allows the user to
   specify alternative font families to try if a family specified by a
   face doesn't exist.


   Character compositition.

   Usually, the realization process is already finished when Emacs

   font.  Otherwise, value must be a list of regular expressions.  A
   font may be scaled if its name matches a regular expression in the
   list.  */

Lisp_Object Vscalable_fonts_allowed;

/* Maximum number of fonts to consider in font_list.  If not an
   integer > 0, DEFAULT_FONT_LIST_LIMIT is used instead.  */

Lisp_Object Vfont_list_limit;

    {
      /* Make a copy of the font names we got from X, and
	 split them into fields.  */
      for (i = j = 0; i < n; ++i)
	{
	  /* Make a copy of the font name.  */
	  fonts[j].name = xstrdup (names[i]);

	  /* Ignore fonts having a name that we can't parse.  */
	  if (!split_font_name (f, fonts + j, 1))

  Vscalable_fonts_allowed = Qt;
#else
  Vscalable_fonts_allowed = Qnil;
#endif

#ifdef HAVE_WINDOW_SYSTEM
  defsubr (&Sbitmap_spec_p);
  defsubr (&Sx_list_fonts);
  defsubr (&Sinternal_face_x_get_resource);
  defsubr (&Sx_family_fonts);

34629:10675adcbf6f

   that font selection first tries to find a good match for the font
   width specified by a face, then---within fonts with that
   width---tries to find a best match for the specified font height,
   etc.

   2. Setting face-font-family-alternatives allows the user to
   specify alternative font families to try if a family specified by a
   face doesn't exist.

   3. Setting face-font-registry-alternatives allows the user to
   specify all alternative font registries to try for a face
   specifying a registry.

   4. Setting face-ignored-fonts allows the user to ignore specific
   fonts.


   Character compositition.

   Usually, the realization process is already finished when Emacs

   font.  Otherwise, value must be a list of regular expressions.  A
   font may be scaled if its name matches a regular expression in the
   list.  */

Lisp_Object Vscalable_fonts_allowed;

/* List of regular expressions that matches names of fonts to ignore. */

Lisp_Object Vface_ignored_fonts;

/* Maximum number of fonts to consider in font_list.  If not an
   integer > 0, DEFAULT_FONT_LIST_LIMIT is used instead.  */

Lisp_Object Vfont_list_limit;

    {
      /* Make a copy of the font names we got from X, and
	 split them into fields.  */
      for (i = j = 0; i < n; ++i)
	{
	  Lisp_Object elt, tail;

	  for (tail = Vface_ignored_fonts; CONSP (tail); tail = XCDR (tail))
	    {
	      elt = XCAR (tail);
	      if (STRINGP (elt)
		  && fast_c_string_match_ignore_case (elt, names[i]) >= 0)
		break;
	    }
	  if (!NILP (tail))
	    continue;

	  /* Make a copy of the font name.  */
	  fonts[j].name = xstrdup (names[i]);

	  /* Ignore fonts having a name that we can't parse.  */
	  if (!split_font_name (f, fonts + j, 1))

  Vscalable_fonts_allowed = Qt;
#else
  Vscalable_fonts_allowed = Qnil;
#endif

  DEFVAR_LISP ("face-ignored-fonts", &Vface_ignored_fonts,
    "List of ignored fonts.\n\
Each element is a regular expression that matches names of fonts to ignore.");
  Vface_ignored_fonts = Qnil;

#ifdef HAVE_WINDOW_SYSTEM
  defsubr (&Sbitmap_spec_p);
  defsubr (&Sx_list_fonts);
  defsubr (&Sinternal_face_x_get_resource);
  defsubr (&Sx_family_fonts);