# HG changeset patch
# User Gerd Moellmann <gerd@gnu.org>
# Date 936743498 0
# Node ID 709e9cdaaab11e5e3074f966aad2ab43187c29e8
# Parent  16a9c3c6f90ec8912b5f11e5cdc9da3e51cb55f4
(handle_single_display_prop): Change conditional
display property to `:when FORM . VALUE'.

diff -r 16a9c3c6f90e -r 709e9cdaaab1 src/xdisp.c
--- a/src/xdisp.c	Tue Sep 07 19:40:09 1999 +0000
+++ b/src/xdisp.c	Tue Sep 07 22:31:38 1999 +0000
@@ -2297,8 +2297,8 @@
 
   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))
     {
@@ -2307,9 +2307,6 @@
 	return 0;
       form = XCAR (prop);
       prop = XCDR (prop);
-      if (!CONSP (prop))
-	return 0;
-      prop = XCAR (prop);
     }
 
   if (!NILP (form) && !EQ (form, Qt))