mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-02-01 20:06:00 +00:00
Code Issues Releases Activity

(Faref, Faset): Allow indexing a char-table

Browse Source 
directly by numbers up to CHAR_TABLE_ORDINARY_SLOTS.
This commit is contained in:
Richard M. Stallman 1998-02-03 06:22:02 +00:00
parent e781c49e61
commit ab5c3f933d
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/data.c
View File

@ -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
{