From: Kim F. Storm <storm@cua.dk>
Date: Fri, 18 Feb 2005 22:55:53 +0000 (+0000)
Subject: (Finternal_set_lisp_face_attribute): Allow :color property
X-Git-Tag: ttn-vms-21-2-B4~2208
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=91c212f159577c0be32ec8fcc1f8e6a23777ee6d;p=emacs.git

(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 --git a/src/xfaces.c b/src/xfaces.c
index c562ce3b592..c02295c7a27 100644
--- a/src/xfaces.c
+++ b/src/xfaces.c
@@ -4148,7 +4148,7 @@ FRAME 0 means change the face on all frames, and change the default
 		}
 	      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))