Mercurial > emacs

changeset 40603:e8ff19a0b76e

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(Finternal_set_lisp_face_attribute_from_resource): Handle :box so that it is possible to specify sexprs.
author Gerd Moellmann <gerd@gnu.org>
date Thu, 01 Nov 2001 10:11:49 +0000
parents 8cc8b31b12f9
children efb447f6a93b
files src/xfaces.c
diffstat 1 files changed, 3 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- 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);
 }