comparison src/xfaces.c @ 31570:9eeff4863080

Remove conditional compilation on SCALABLE_FONTS. (Finternal_set_lisp_face_attribute): If frame is 0, set new frame defaults first.

31569:8b6e9e1a553b

   The faces `default', `modeline' are considered `basic faces'.
   When redisplay happens the first time for a newly created frame,
   basic faces are realized for CHARSET_ASCII.  Frame parameters are
   used to fill in unspecified attributes of the default face.  */

/* Define SCALABLE_FONTS to a non-zero value to enable scalable
   font use. Define it to zero to disable scalable font use.

   Use of too many or too large scalable fonts can crash XFree86
   servers.  That's why I've put the code dealing with scalable fonts
   in #if's.  */

#define SCALABLE_FONTS 1

#include <config.h>
#include <sys/types.h>
#include <sys/stat.h>
#include "lisp.h"
#include "charset.h"
#include "frame.h"

#ifdef HAVE_WINDOW_SYSTEM
#include "fontset.h"
#endif
#ifdef HAVE_X_WINDOWS
#include "xterm.h"
#ifdef USE_MOTIF
#include <Xm/Xm.h>
#include <Xm/XmStrDefs.h>
#endif /* USE_MOTIF */
#endif

#ifdef MSDOS
#include "dosfns.h"
#endif

#define x_list_fonts w32_list_fonts
#define GCGraphicsExposures 0
/* For historic reasons, FONT_WIDTH refers to average width on W32,
   not maximum as on X. Redefine here. */
#define FONT_WIDTH FONT_MAX_WIDTH
#endif

#include "buffer.h"
#include "dispextern.h"
#include "blockinput.h"
#include "window.h"

   scalable fonts.  A value of t means allow the use of any scalable
   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.  */

#if SCALABLE_FONTS
Lisp_Object Vscalable_fonts_allowed;
#endif

/* 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;

  if (n % 5 != 0)
    fputc ('\n', stderr);
  return Qnil;
}


#endif /* DEBUG_X_COLORS */

/* Free colors used on frame F.  PIXELS is an array of NPIXELS pixel
   color values.  Interrupt input must be blocked when this function
   is called.  */

  /* Get the list of fonts matching PATTERN from the X server.  */
  BLOCK_INPUT;
  names = XListFonts (dpy, pattern, nfonts, &n);
  UNBLOCK_INPUT;
#endif
#ifdef WINDOWSNT
  /* NTEMACS_TODO : currently this uses w32_list_fonts, but it may be
     better to do it the other way around. */
  Lisp_Object lfonts;
  Lisp_Object lpattern, tem;

  for (i = 0; i < n; i++)
    {
      names[i] = XSTRING (XCAR (tem))->data;
      tem = XCDR (tem);
    }
#endif

  if (names)
    {
      /* Make a copy of the font names we got from X, and
	 split them into fields.  */

	  /* Ignore fonts having a name that we can't parse.  */
	  if (!split_font_name (f, fonts + j, 1))
	    xfree (fonts[j].name);
	  else if (font_scalable_p (fonts + j))
	    {
#if SCALABLE_FONTS
	      if (!scalable_fonts_p
		  || !may_use_scalable_font_p (fonts + j, names[i]))
		xfree (fonts[j].name);
	      else
		++j;
#else /* !SCALABLE_FONTS */
	      /* Always ignore scalable fonts.  */
	      xfree (fonts[j].name);
#endif /* !SCALABLE_FONTS */
	    }
	  else
	    ++j;
	}

  nfonts = DEFAULT_FONT_LIST_LIMIT;
  if (INTEGERP (Vfont_list_limit) && XINT (Vfont_list_limit) > 0)
    nfonts = XFASTINT (Vfont_list_limit);

  *fonts = (struct font_name *) xmalloc (nfonts * sizeof **fonts);
#if SCALABLE_FONTS
  nfonts = x_face_list_fonts (f, pattern, *fonts, nfonts, 1, 1);
#else
  nfonts = x_face_list_fonts (f, pattern, *fonts, nfonts, 1, 0);
#endif

  /* Sort the resulting array and return it in *FONTS.  If no
     fonts were found, make sure to set *FONTS to null.  */
  if (nfonts)
    sort_fonts (f, *fonts, nfonts, cmpfn);

  LFACE_FONT (lface) = fontname;

  return 1;
}
#endif /* HAVE_WINDOW_SYSTEM */


/* Merges the face height FROM with the face height TO, and returns the
   merged height.  If FROM is an invalid height, then INVALID is

  /* If FRAME is 0, change face on all frames, and change the
     default for new frames.  */
  if (INTEGERP (frame) && XINT (frame) == 0)
    {
      Lisp_Object tail;
      FOR_EACH_FRAME (tail, frame)
	Finternal_set_lisp_face_attribute (face, attr, value, frame);
      return Finternal_set_lisp_face_attribute (face, attr, value, Qt);
    }

  /* Set lface to the Lisp attribute vector of FACE.  */
  if (EQ (frame, Qt))
    lface = lface_from_face_name (NULL, face, 1);

	  if (EQ (attr, QCforeground))
	    param = Qscroll_bar_foreground;
	  else if (EQ (attr, QCbackground))
	    param = Qscroll_bar_background;
	}
#endif
      else if (EQ (face, Qborder))
	{
	  /* Changing background color of `border' sets frame parameter
	     `border-color'.  */
	  if (EQ (attr, QCbackground))

  CHECK_LIVE_FRAME (frame, 2);
  BLOCK_INPUT;
  value = display_x_get_resource (FRAME_X_DISPLAY_INFO (XFRAME (frame)),
				  resource, class, Qnil, Qnil);
  UNBLOCK_INPUT;
#endif
  return value;
}


/* Return resource string VALUE as a boolean value, i.e. nil, or t.

      XtApplyToWidgets (widget, xm_apply_resources, &res);
      if (fl)
	XmFontListFree (fl);
    }
}


#endif /* USE_MOTIF */

#ifdef USE_LUCID

  return 0;
}


#if SCALABLE_FONTS

/* Value is non-zero if FONT is an exact match for face attributes in
   SPECIFIED.  SPECIFIED is an array of face attribute values in font
   sort order.  */

static int

    }

  return 0;
}

#endif /* SCALABLE_FONTS != 0 */


/* Return the name of the best matching font for face attributes
   ATTRS in the array of font_name structures FONTS which contains
   NFONTS elements.  Value is a font name which is allocated from

	specified[i] = face_numeric_slant (attrs[LFACE_SLANT_INDEX]);
      else
	abort ();
    }

#if SCALABLE_FONTS

  /* Set to 1 */
  exact_p = 0;

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

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

#else /* !SCALABLE_FONTS */

  /* Find the best non-scalable font.  */
  best = fonts;

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

  font_name = build_font_name (best);

#endif /* !SCALABLE_FONTS */

  /* Free font_name structures.  */
  free_font_names (fonts, nfonts);

  return font_name;

  DEFVAR_LISP ("tty-defined-color-alist", &Vtty_defined_color_alist,
   "An alist of defined terminal colors and their RGB values.");
  Vtty_defined_color_alist = Qnil;

#if SCALABLE_FONTS

  DEFVAR_LISP ("scalable-fonts-allowed", &Vscalable_fonts_allowed,
    "Allowed scalable fonts.\n\
A value of nil means don't allow any scalable fonts.\n\
A value of t means allow any scalable font.\n\
Otherwise, value must be a list of regular expressions.  A font may be\n\

     by default limits the fonts available severely. */
  Vscalable_fonts_allowed = Qt;
#else
  Vscalable_fonts_allowed = Qnil;
#endif
#endif /* SCALABLE_FONTS */

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

31570:9eeff4863080

   The faces `default', `modeline' are considered `basic faces'.
   When redisplay happens the first time for a newly created frame,
   basic faces are realized for CHARSET_ASCII.  Frame parameters are
   used to fill in unspecified attributes of the default face.  */

#include <config.h>
#include <sys/types.h>
#include <sys/stat.h>
#include "lisp.h"
#include "charset.h"
#include "frame.h"

#ifdef HAVE_WINDOW_SYSTEM
#include "fontset.h"
#endif /* HAVE_WINDOW_SYSTEM */

#ifdef HAVE_X_WINDOWS
#include "xterm.h"
#ifdef USE_MOTIF
#include <Xm/Xm.h>
#include <Xm/XmStrDefs.h>
#endif /* USE_MOTIF */
#endif /* HAVE_X_WINDOWS */

#ifdef MSDOS
#include "dosfns.h"
#endif

#define x_list_fonts w32_list_fonts
#define GCGraphicsExposures 0
/* For historic reasons, FONT_WIDTH refers to average width on W32,
   not maximum as on X. Redefine here. */
#define FONT_WIDTH FONT_MAX_WIDTH
#endif /* WINDOWSNT */

#include "buffer.h"
#include "dispextern.h"
#include "blockinput.h"
#include "window.h"

   scalable fonts.  A value of t means allow the use of any scalable
   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;

  if (n % 5 != 0)
    fputc ('\n', stderr);
  return Qnil;
}

#endif /* DEBUG_X_COLORS */


/* Free colors used on frame F.  PIXELS is an array of NPIXELS pixel
   color values.  Interrupt input must be blocked when this function
   is called.  */

  /* Get the list of fonts matching PATTERN from the X server.  */
  BLOCK_INPUT;
  names = XListFonts (dpy, pattern, nfonts, &n);
  UNBLOCK_INPUT;
#endif /* HAVE_X_WINDOWS */
#ifdef WINDOWSNT
  /* NTEMACS_TODO : currently this uses w32_list_fonts, but it may be
     better to do it the other way around. */
  Lisp_Object lfonts;
  Lisp_Object lpattern, tem;

  for (i = 0; i < n; i++)
    {
      names[i] = XSTRING (XCAR (tem))->data;
      tem = XCDR (tem);
    }
#endif /* WINDOWSNT */

  if (names)
    {
      /* Make a copy of the font names we got from X, and
	 split them into fields.  */

	  /* Ignore fonts having a name that we can't parse.  */
	  if (!split_font_name (f, fonts + j, 1))
	    xfree (fonts[j].name);
	  else if (font_scalable_p (fonts + j))
	    {
	      if (!scalable_fonts_p
		  || !may_use_scalable_font_p (fonts + j, names[i]))
		xfree (fonts[j].name);
	      else
		++j;
	    }
	  else
	    ++j;
	}

  nfonts = DEFAULT_FONT_LIST_LIMIT;
  if (INTEGERP (Vfont_list_limit) && XINT (Vfont_list_limit) > 0)
    nfonts = XFASTINT (Vfont_list_limit);

  *fonts = (struct font_name *) xmalloc (nfonts * sizeof **fonts);
  nfonts = x_face_list_fonts (f, pattern, *fonts, nfonts, 1, 1);

  /* Sort the resulting array and return it in *FONTS.  If no
     fonts were found, make sure to set *FONTS to null.  */
  if (nfonts)
    sort_fonts (f, *fonts, nfonts, cmpfn);

  LFACE_FONT (lface) = fontname;

  return 1;
}

#endif /* HAVE_WINDOW_SYSTEM */


/* Merges the face height FROM with the face height TO, and returns the
   merged height.  If FROM is an invalid height, then INVALID is

  /* If FRAME is 0, change face on all frames, and change the
     default for new frames.  */
  if (INTEGERP (frame) && XINT (frame) == 0)
    {
      Lisp_Object tail;
      Finternal_set_lisp_face_attribute (face, attr, value, Qt);
      FOR_EACH_FRAME (tail, frame)
	Finternal_set_lisp_face_attribute (face, attr, value, frame);
      return face;
    }

  /* Set lface to the Lisp attribute vector of FACE.  */
  if (EQ (frame, Qt))
    lface = lface_from_face_name (NULL, face, 1);

	  if (EQ (attr, QCforeground))
	    param = Qscroll_bar_foreground;
	  else if (EQ (attr, QCbackground))
	    param = Qscroll_bar_background;
	}
#endif /* not WINDOWSNT */
      else if (EQ (face, Qborder))
	{
	  /* Changing background color of `border' sets frame parameter
	     `border-color'.  */
	  if (EQ (attr, QCbackground))

  CHECK_LIVE_FRAME (frame, 2);
  BLOCK_INPUT;
  value = display_x_get_resource (FRAME_X_DISPLAY_INFO (XFRAME (frame)),
				  resource, class, Qnil, Qnil);
  UNBLOCK_INPUT;
#endif /* not WINDOWSNT */
  return value;
}


/* Return resource string VALUE as a boolean value, i.e. nil, or t.

      XtApplyToWidgets (widget, xm_apply_resources, &res);
      if (fl)
	XmFontListFree (fl);
    }
}

#endif /* USE_MOTIF */

#ifdef USE_LUCID

  return 0;
}


/* Value is non-zero if FONT is an exact match for face attributes in
   SPECIFIED.  SPECIFIED is an array of face attribute values in font
   sort order.  */

static int

    }

  return 0;
}



/* Return the name of the best matching font for face attributes
   ATTRS in the array of font_name structures FONTS which contains
   NFONTS elements.  Value is a font name which is allocated from

	specified[i] = face_numeric_slant (attrs[LFACE_SLANT_INDEX]);
      else
	abort ();
    }

  exact_p = 0;

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

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

  /* Free font_name structures.  */
  free_font_names (fonts, nfonts);

  return font_name;

  DEFVAR_LISP ("tty-defined-color-alist", &Vtty_defined_color_alist,
   "An alist of defined terminal colors and their RGB values.");
  Vtty_defined_color_alist = Qnil;

  DEFVAR_LISP ("scalable-fonts-allowed", &Vscalable_fonts_allowed,
    "Allowed scalable fonts.\n\
A value of nil means don't allow any scalable fonts.\n\
A value of t means allow any scalable font.\n\
Otherwise, value must be a list of regular expressions.  A font may be\n\

     by default limits the fonts available severely. */
  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);