# HG changeset patch
# User Ken Raeburn <raeburn@raeburn.org>
# Date 1025380322 0
# Node ID 3284ceb041485528db6c9b1f51f56ac4f6d196e4
# Parent  18b22e306d7dad7b80986cc568d30c9d32646cab
(store_mode_line_string): Lisp_Object/int mixup.

diff -r 18b22e306d7d -r 3284ceb04148 src/xdisp.c
--- a/src/xdisp.c	Sat Jun 29 19:01:46 2002 +0000
+++ b/src/xdisp.c	Sat Jun 29 19:52:02 2002 +0000
@@ -14104,7 +14104,7 @@
     }
   else 
     {
-      len = Flength (lisp_string);
+      len = XFASTINT (Flength (lisp_string));
       if (precision > 0 && len > precision)
 	{
 	  len = precision;