# HG changeset patch
# User Gerd Moellmann <gerd@gnu.org>
# Date 1004609509 0
# Node ID e8ff19a0b76ec64b1fc5b6990792108b28943823
# Parent  8cc8b31b12f90c69c464a949e90bbe3dbf3e74b8
(Finternal_set_lisp_face_attribute_from_resource):
Handle :box so that it is possible to specify sexprs.

diff -r 8cc8b31b12f9 -r e8ff19a0b76e src/xfaces.c
--- a/src/xfaces.c	Thu Nov 01 09:10:43 2001 +0000
+++ b/src/xfaces.c	Thu Nov 01 10:11:49 2001 +0000
@@ -4383,8 +4383,7 @@
     value = face_boolean_x_resource_value (value, 1);
   else if (EQ (attr, QCunderline)
 	   || EQ (attr, QCoverline)
-	   || EQ (attr, QCstrike_through)
-	   || EQ (attr, QCbox))
+	   || EQ (attr, QCstrike_through))
     {
       Lisp_Object boolean_value;
 
@@ -4394,6 +4393,8 @@
       if (SYMBOLP (boolean_value))
 	value = boolean_value;
     }
+  else if (EQ (attr, QCbox))
+    value = Fcar (Fread_from_string (value, Qnil, Qnil));
 
   return Finternal_set_lisp_face_attribute (face, attr, value, frame);
 }