# HG changeset patch
# User Kim F. Storm <storm@cua.dk>
# Date 1108767353 0
# Node ID ffb5cb773521e1c428992bcca6c4f2430f3ae3fd
# Parent  0d46a8b4342ff328336558797326ff2fb74ab4b7
(Finternal_set_lisp_face_attribute): Allow :color property
to be nil in a :box attribute value list; customize prints that
as lisp value when no box color is specified.

diff -r 0d46a8b4342f -r ffb5cb773521 src/xfaces.c
--- a/src/xfaces.c	Fri Feb 18 22:55:37 2005 +0000
+++ b/src/xfaces.c	Fri Feb 18 22:55:53 2005 +0000
@@ -4148,7 +4148,7 @@
 		}
 	      else if (EQ (k, QCcolor))
 		{
-		  if (!STRINGP (v) || SCHARS (v) == 0)
+		  if (!NILP (v) && (!STRINGP (v) || SCHARS (v) == 0))
 		    break;
 		}
 	      else if (EQ (k, QCstyle))