# HG changeset patch
# User Stefan Monnier <monnier@iro.umontreal.ca>
# Date 1016028975 0
# Node ID 558f4f145d789f342fea598b30d7a564a8fc2c0a
# Parent  f59c9255134fc8f18d059de52dfd3c9b7605d588
(display_mode_element): Fix int/Lisp_Object mixup.

diff -r f59c9255134f -r 558f4f145d78 src/xdisp.c
--- a/src/xdisp.c	Wed Mar 13 13:41:39 2002 +0000
+++ b/src/xdisp.c	Wed Mar 13 14:16:15 2002 +0000
@@ -13640,7 +13640,8 @@
 		else
 		  {
 		    elt = Fcopy_sequence (elt);
-		    Fset_text_properties (0, Flength (elt), props, elt);
+		    Fset_text_properties (make_number (0), Flength (elt),
+					  props, elt);
 		    mode_line_proptrans_alist
 		      = Fcons (Fcons (elt, props),
 			       mode_line_proptrans_alist);