From: Richard M. Stallman <rms@gnu.org>
Date: Tue, 3 Feb 1998 06:22:02 +0000 (+0000)
Subject: (Faref, Faset): Allow indexing a char-table
X-Git-Tag: emacs-20.3~2247
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=ab5c3f933d5e8add053fd33f338978715d501078;p=emacs.git

(Faref, Faset): Allow indexing a char-table
directly by numbers up to CHAR_TABLE_ORDINARY_SLOTS.
---

diff --git a/src/data.c b/src/data.c
index 4537e649b7f..ba7ed98b527 100644
--- a/src/data.c
+++ b/src/data.c
@@ -1574,7 +1574,7 @@ or a byte-code object.  IDX starts at 0.")
 
       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 @@ IDX starts at 0.")
 
       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
 	{