mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-30 00:51:50 -08:00
Code Issues Projects Releases Wiki Activity

(Faset): Simplify a statement in the char-table case.

Browse source 
This is to help some compilers.
This commit is contained in:
Richard M. Stallman 1997-09-04 06:30:27 +00:00
parent bb0115a22e
commit 3c8fccc3e5
1 changed files with 13 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

20
src/data.c
View file

@ -1707,13 +1707,19 @@ IDX starts at 0.")
if (SUB_CHAR_TABLE_P (val))
array = val;
else
/* VAL is a leaf. Create a sub char table with the
default value VAL or XCHAR_TABLE (array)->defalt
and look into it. */
array = (XCHAR_TABLE (array)->contents[code[i]]
= make_sub_char_table (NILP (val)
? XCHAR_TABLE (array)->defalt
: val));
{
Lisp_Object temp;
/* VAL is a leaf. Create a sub char table with the
default value VAL or XCHAR_TABLE (array)->defalt
and look into it. */
temp = make_sub_char_table (NILP (val)
? XCHAR_TABLE (array)->defalt
: val);
XCHAR_TABLE (array)->contents[code[i]] = temp;
array = temp;
}
}
XCHAR_TABLE (array)->contents[code[i]] = newelt;
}