comparison src/xfaces.c @ 83123:ad01ab3c6f4d

Merged in changes from CVS trunk. Patches applied: * [e-mail]--gnu-2004/emacs--cvs-trunk--0--patch-299 Update from CVS * [e-mail]--gnu-2004/emacs--cvs-trunk--0--patch-300 Update from CVS * [e-mail]--gnu-2004/emacs--cvs-trunk--0--patch-301 Update from CVS * [e-mail]--gnu-2004/emacs--cvs-trunk--0--patch-302 Update from CVS * [e-mail]--gnu-2004/emacs--cvs-trunk--0--patch-303 Update from CVS * [e-mail]--gnu-2004/emacs--cvs-trunk--0--patch-304 Update from CVS * [e-mail]--gnu-2004/emacs--cvs-trunk--0--patch-305 Update from CVS * [e-mail]--gnu-2004/emacs--cvs-trunk--0--patch-306 Update from CVS * [e-mail]--gnu-2004/emacs--cvs-trunk--0--patch-307 Update from CVS * [e-mail]--gnu-2004/emacs--cvs-trunk--0--patch-308 Update from CVS * [e-mail]--gnu-2004/emacs--cvs-trunk--0--patch-309 Update from CVS * [e-mail]--gnu-2004/emacs--cvs-trunk--0--patch-310 Update from CVS * [e-mail]--gnu-2004/emacs--cvs-trunk--0--patch-311 Update from CVS * [e-mail]--gnu-2004/emacs--cvs-trunk--0--patch-312 Update from CVS * [e-mail]--gnu-2004/emacs--cvs-trunk--0--patch-313 Update from CVS * [e-mail]--gnu-2004/emacs--cvs-trunk--0--patch-314 Update from CVS * [e-mail]--gnu-2004/emacs--cvs-trunk--0--patch-315 Update from CVS * [e-mail]--gnu-2004/emacs--cvs-trunk--0--patch-316 Update from CVS * [e-mail]--gnu-2004/emacs--cvs-trunk--0--patch-317 Update from CVS * [e-mail]--gnu-2004/emacs--cvs-trunk--0--patch-318 Update from CVS * [e-mail]--gnu-2004/emacs--cvs-trunk--0--patch-319 Update from CVS * [e-mail]--gnu-2004/emacs--cvs-trunk--0--patch-320 Update from CVS * [e-mail]--gnu-2004/emacs--cvs-trunk--0--patch-321 Update from CVS * [e-mail]--gnu-2004/emacs--cvs-trunk--0--patch-322 Update from CVS * [e-mail]--gnu-2004/emacs--cvs-trunk--0--patch-323 Update from CVS * [e-mail]--gnu-2004/emacs--cvs-trunk--0--patch-324 Update from CVS git-archimport-id: [e-mail]--2004/emacs--multi-tty--0--patch-163

83122:d895a49cccb9

DEFUN ("internal-copy-lisp-face", Finternal_copy_lisp_face,
       Sinternal_copy_lisp_face, 4, 4, 0,
       doc: /* Copy face FROM to TO.
If FRAME it t, copy the global face definition of FROM to the
global face definition of TO.  Otherwise, copy the frame-local
definition of FROM on FRAME to the frame-local definition of TO
on NEW-FRAME, or FRAME if NEW-FRAME is nil.

Value is TO.  */)

       Sinternal_get_lisp_face_attribute,
       2, 3, 0,
       doc: /* Return face attribute KEYWORD of face SYMBOL.
If SYMBOL does not name a valid Lisp face or KEYWORD isn't a valid
face attribute name, signal an error.
If the optional argument FRAME is given, report on face FACE in that
frame.  If FRAME is t, report on the defaults for face FACE (for new
frames).  If FRAME is omitted or nil, use the selected frame.  */)
     (symbol, keyword, frame)
     Lisp_Object symbol, keyword, frame;
{
  Lisp_Object lface, value = Qnil;

with the default face for display, can be represented in a way that's

 \(1) different in appearance than the default face, and
 \(2) `close in spirit' to what the attributes specify, if not exact.

Point (2) implies that a `:weight black' attribute will be satisified
by any terminal that can display bold, and a `:foreground "yellow"' as
long as the terminal can display a yellowish color, but `:slant italic'
will _not_ be satisified by the tty display code's automatic
substitution of a `dim' face for italic.  */)
     (attributes, frame)
     Lisp_Object attributes, frame;
{
  int weight, i;

#endif /* HAVE_WINDOW_SYSTEM */
    }
}


/* Free all realized faces in face cache C, including basic faces.  C
   may be null.  If faces are freed, make sure the frame's current
   matrix is marked invalid, so that a display caused by an expose
   event doesn't try to use faces we destroyed.  */

static void
free_realized_faces (c)

    endpos = XINT (end);

  /* Look at properties from overlays.  */
  {
    int next_overlay;
    int len;

    /* First try with room for 40 overlays.  */
    len = 40;
    overlay_vec = (Lisp_Object *) alloca (len * sizeof (Lisp_Object));
    noverlays = overlays_at (pos, 0, &overlay_vec, &len,
			     &next_overlay, NULL, 0);

    /* If there are more than 40, make enough space for all, and try
       again.  */
    if (noverlays > len)
      {
	len = noverlays;
	overlay_vec = (Lisp_Object *) alloca (len * sizeof (Lisp_Object));
	noverlays = overlays_at (pos, 0, &overlay_vec, &len,
				 &next_overlay, NULL, 0);
      }

    if (next_overlay < endpos)
      endpos = next_overlay;
  }

  *endptr = endpos;

83123:ad01ab3c6f4d

DEFUN ("internal-copy-lisp-face", Finternal_copy_lisp_face,
       Sinternal_copy_lisp_face, 4, 4, 0,
       doc: /* Copy face FROM to TO.
If FRAME is t, copy the global face definition of FROM to the
global face definition of TO.  Otherwise, copy the frame-local
definition of FROM on FRAME to the frame-local definition of TO
on NEW-FRAME, or FRAME if NEW-FRAME is nil.

Value is TO.  */)

       Sinternal_get_lisp_face_attribute,
       2, 3, 0,
       doc: /* Return face attribute KEYWORD of face SYMBOL.
If SYMBOL does not name a valid Lisp face or KEYWORD isn't a valid
face attribute name, signal an error.
If the optional argument FRAME is given, report on face SYMBOL in that
frame.  If FRAME is t, report on the defaults for face SYMBOL (for new
frames).  If FRAME is omitted or nil, use the selected frame.  */)
     (symbol, keyword, frame)
     Lisp_Object symbol, keyword, frame;
{
  Lisp_Object lface, value = Qnil;

with the default face for display, can be represented in a way that's

 \(1) different in appearance than the default face, and
 \(2) `close in spirit' to what the attributes specify, if not exact.

Point (2) implies that a `:weight black' attribute will be satisfied
by any terminal that can display bold, and a `:foreground "yellow"' as
long as the terminal can display a yellowish color, but `:slant italic'
will _not_ be satisfied by the tty display code's automatic
substitution of a `dim' face for italic.  */)
     (attributes, frame)
     Lisp_Object attributes, frame;
{
  int weight, i;

#endif /* HAVE_WINDOW_SYSTEM */
    }
}


/* Free all realized faces in face cache C, including basic faces.
   C may be null.  If faces are freed, make sure the frame's current
   matrix is marked invalid, so that a display caused by an expose
   event doesn't try to use faces we destroyed.  */

static void
free_realized_faces (c)

    endpos = XINT (end);

  /* Look at properties from overlays.  */
  {
    int next_overlay;

    GET_OVERLAYS_AT (pos, overlay_vec, noverlays, &next_overlay, 0);
    if (next_overlay < endpos)
      endpos = next_overlay;
  }

  *endptr = endpos;