martin/emacs
1
0
Fork 0
Code Issues Pull Requests Packages 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;
}