From d084e9427ff5c524cca4e079dc2d72713e280d5c Mon Sep 17 00:00:00 2001
From: Jim Blandy <jimb@redhat.com>
Date: Sat, 31 Oct 1992 05:38:19 +0000
Subject: [PATCH] * search.c (Fstore_match_data): Don't assume Flength returns
 an 	integer.

---
 src/search.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/search.c b/src/search.c
index 22e3329551f..8868d0aa537 100644
--- a/src/search.c
+++ b/src/search.c
@@ -1302,7 +1302,7 @@ LIST should have been created by calling `match-data' previously.")
 
   /* Allocate registers if they don't already exist.  */
   {
-    int length = Flength (list) / 2;
+    int length = XFASTINT (Flength (list)) / 2;
 
     if (length > search_regs.num_regs)
       {