changeset 60150:ffb5cb773521

(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.
author Kim F. Storm <storm@cua.dk>
date Fri, 18 Feb 2005 22:55:53 +0000
parents 0d46a8b4342f
children 905bf9de87af
files src/xfaces.c
diffstat 1 files changed, 1 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- 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))