From 09ee221d202e4a7f2876f6c7295aed6a87555dac Mon Sep 17 00:00:00 2001
From: "Richard M. Stallman" <rms@gnu.org>
Date: Mon, 2 Jun 1997 00:33:14 +0000
Subject: [PATCH] (map_char_table): Use XSETFASTINT.

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

diff --git a/src/fns.c b/src/fns.c
index 69bcb6f7d86..24c737141cc 100644
--- a/src/fns.c
+++ b/src/fns.c
@@ -1457,7 +1457,7 @@ map_char_table (c_function, function, subtable, arg, depth, indices)
     {
       Lisp_Object elt = XCHAR_TABLE (subtable)->contents[i];
 
-      indices[depth] = i;
+      XSETFASTINT (indices[depth], i);
 
       if (SUB_CHAR_TABLE_P (elt))
 	{
-- 
2.39.5