# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 865211594 0
# Node ID af791b0f065761a1bf5dad8a3036243783b2617a
# Parent  7e13abad5ccaaf0209139029e74cf2687ffaafef
(map_char_table): Use XSETFASTINT.

diff -r 7e13abad5cca -r af791b0f0657 src/fns.c
--- a/src/fns.c	Mon Jun 02 00:32:20 1997 +0000
+++ b/src/fns.c	Mon Jun 02 00:33:14 1997 +0000
@@ -1457,7 +1457,7 @@
     {
       Lisp_Object elt = XCHAR_TABLE (subtable)->contents[i];
 
-      indices[depth] = i;
+      XSETFASTINT (indices[depth], i);
 
       if (SUB_CHAR_TABLE_P (elt))
 	{