comparison src/fns.c @ 18108:af791b0f0657

(map_char_table): Use XSETFASTINT.
author Richard M. Stallman <rms@gnu.org>
date Mon, 02 Jun 1997 00:33:14 +0000
parents edf54f605b36
children 8b716cb12cdd
comparison
equal deleted inserted replaced
18107:7e13abad5cca 18108:af791b0f0657
1455 1455
1456 for (; i < to; i++) 1456 for (; i < to; i++)
1457 { 1457 {
1458 Lisp_Object elt = XCHAR_TABLE (subtable)->contents[i]; 1458 Lisp_Object elt = XCHAR_TABLE (subtable)->contents[i];
1459 1459
1460 indices[depth] = i; 1460 XSETFASTINT (indices[depth], i);
1461 1461
1462 if (SUB_CHAR_TABLE_P (elt)) 1462 if (SUB_CHAR_TABLE_P (elt))
1463 { 1463 {
1464 if (depth >= 3) 1464 if (depth >= 3)
1465 error ("Too deep char table"); 1465 error ("Too deep char table");