# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 1003964242 0
# Node ID 6ee20fddfbc5ab765334c9306ba19d7286298755
# Parent  61a533745adf55dbb576e1612057916889f8c015
(Fface_attributes_as_vector): New function.
(syms_of_xfaces): defsubr it.

diff -r 61a533745adf -r 6ee20fddfbc5 src/xfaces.c
--- a/src/xfaces.c	Wed Oct 24 22:57:07 2001 +0000
+++ b/src/xfaces.c	Wed Oct 24 22:57:22 2001 +0000
@@ -5466,6 +5466,21 @@
   return lookup_face (f, attrs, c, default_face);
 }
 
+DEFUN ("face-attributes-as-vector", Fface_attributes_as_vector,
+       Sface_attributes_as_vector, 1, 1, 0,
+       doc: /* Return a vector of face attributes corresponding to PLIST. */)
+     (plist)
+     Lisp_Object plist;
+{
+  Lisp_Object lface;
+  lface = Fmake_vector (make_number (LFACE_VECTOR_SIZE),
+			Qunspecified);
+  merge_face_vector_with_property (XFRAME (selected_frame),
+				   XVECTOR (lface)->contents,
+				   plist);
+  return lface;
+}
+
 
 
 /***********************************************************************
@@ -6714,7 +6729,6 @@
   return face_id;
 }
 
-
 /* Return the face ID associated with buffer position POS for
    displaying ASCII characters.  Return in *ENDPTR the position at
    which a different face is needed, as far as text properties and
@@ -7202,6 +7216,7 @@
   defsubr (&Sinternal_set_font_selection_order);
   defsubr (&Sinternal_set_alternative_font_family_alist);
   defsubr (&Sinternal_set_alternative_font_registry_alist);
+  defsubr (&Sface_attributes_as_vector);
 #if GLYPH_DEBUG
   defsubr (&Sdump_face);
   defsubr (&Sshow_face_resources);