# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 886486922 0
# Node ID 4b85e02aae14e29a7b261ac8b08e39b470856c0b
# Parent  cbaa9e50b0139638d109a609abcbd5a0edfa4683
(Faref, Faset): Allow indexing a char-table
directly by numbers up to CHAR_TABLE_ORDINARY_SLOTS.

diff -r cbaa9e50b013 -r 4b85e02aae14 src/data.c
--- a/src/data.c	Tue Feb 03 06:19:34 1998 +0000
+++ b/src/data.c	Tue Feb 03 06:22:02 1998 +0000
@@ -1574,7 +1574,7 @@
 
       if (idxval < 0)
 	args_out_of_range (array, idx);
-      if (idxval < CHAR_TABLE_SINGLE_BYTE_SLOTS)
+      if (idxval < CHAR_TABLE_ORDINARY_SLOTS)
 	{
 	  /* For ASCII and 8-bit European characters, the element is
              stored in the top table.  */
@@ -1702,7 +1702,7 @@
 
       if (idxval < 0)
 	args_out_of_range (array, idx);
-      if (idxval < CHAR_TABLE_SINGLE_BYTE_SLOTS)
+      if (idxval < CHAR_TABLE_ORDINARY_SLOTS)
 	XCHAR_TABLE (array)->contents[idxval] = newelt;
       else
 	{