From c8224325714b0f876eb7bba22334e0bba2606483 Mon Sep 17 00:00:00 2001
From: Ken Raeburn <raeburn@raeburn.org>
Date: Sat, 29 Jun 2002 19:52:14 +0000
Subject: [PATCH] (store_mode_line_string): Lisp_Object/int mixup.

---
 src/ChangeLog | 4 ++++
 src/xdisp.c   | 2 +-
 2 files changed, 5 insertions(+), 1 deletion(-)

diff --git a/src/ChangeLog b/src/ChangeLog
index b7a6e0f9111..15e57c464b1 100644
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,3 +1,7 @@
+2002-06-29  Ken Raeburn  <raeburn@gnu.org>
+
+	* xdisp.c (store_mode_line_string): Lisp_Object/int mixup.
+
 2002-06-28  Jan D.  <jan.h.d@swipnet.se>
 
 	* keyboard.c (readable_filtered_events): New function that filters
diff --git a/src/xdisp.c b/src/xdisp.c
index afcce0b7b9f..066f4fa0027 100644
--- a/src/xdisp.c
+++ b/src/xdisp.c
@@ -14104,7 +14104,7 @@ static int store_mode_line_string (string, lisp_string, copy_string, field_width
     }
   else 
     {
-      len = Flength (lisp_string);
+      len = XFASTINT (Flength (lisp_string));
       if (precision > 0 && len > precision)
 	{
 	  len = precision;
-- 
2.39.2