From ab5c3f933d5e8add053fd33f338978715d501078 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Tue, 3 Feb 1998 06:22:02 +0000 Subject: [PATCH] (Faref, Faset): Allow indexing a char-table directly by numbers up to CHAR_TABLE_ORDINARY_SLOTS. --- src/data.c | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) 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 { -- 2.39.5