display property to `:when FORM . VALUE'.
Lisp_Object form;
- /* If PROP is a list of the form `(:when FORM VALUE)', FORM is
- evaluated. If the result is nil, VALUE is ignored. */
+ /* If PROP is a list of the form `(:when FORM . VALUE)', FORM is
+ evaluated. If the result is nil, VALUE is ignored. */
form = Qt;
if (CONSP (prop) && EQ (XCAR (prop), QCwhen))
{
return 0;
form = XCAR (prop);
prop = XCDR (prop);
- if (!CONSP (prop))
- return 0;
- prop = XCAR (prop);
}
if (!NILP (form) && !EQ (form, Qt))