changeset 46096:3284ceb04148

(store_mode_line_string): Lisp_Object/int mixup.
author Ken Raeburn <raeburn@raeburn.org>
date Sat, 29 Jun 2002 19:52:02 +0000
parents 18b22e306d7d
children f6567777cef8
files src/xdisp.c
diffstat 1 files changed, 1 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- 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;