Commit 5a4c88c4 authored by Gerd Moellmann's avatar Gerd Moellmann
Browse files

(handle_single_display_prop): Change conditional

display property to `:when FORM . VALUE'.
parent f7b4065f
...@@ -2297,8 +2297,8 @@ handle_single_display_prop (it, prop, object, position) ...@@ -2297,8 +2297,8 @@ handle_single_display_prop (it, prop, object, position)
Lisp_Object form; Lisp_Object form;
/* If PROP is a list of the form `(:when FORM VALUE)', FORM is /* If PROP is a list of the form `(:when FORM . VALUE)', FORM is
evaluated. If the result is nil, VALUE is ignored. */ evaluated. If the result is nil, VALUE is ignored. */
form = Qt; form = Qt;
if (CONSP (prop) && EQ (XCAR (prop), QCwhen)) if (CONSP (prop) && EQ (XCAR (prop), QCwhen))
{ {
...@@ -2307,9 +2307,6 @@ handle_single_display_prop (it, prop, object, position) ...@@ -2307,9 +2307,6 @@ handle_single_display_prop (it, prop, object, position)
return 0; return 0;
form = XCAR (prop); form = XCAR (prop);
prop = XCDR (prop); prop = XCDR (prop);
if (!CONSP (prop))
return 0;
prop = XCAR (prop);
} }
if (!NILP (form) && !EQ (form, Qt)) if (!NILP (form) && !EQ (form, Qt))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment