mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-03 08:30:09 +00:00
Code Issues Releases Activity

(Fset_char_table_default): Fix to make sub char-table correctly.

Browse Source
This commit is contained in:
Kenichi Handa 2001-01-23 01:34:55 +00:00
parent d8e4f486d9
commit 1e70fc65bc
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
src/fns.c
View File

@ -2352,10 +2352,11 @@ See also the documentation of make-char.")
XCHAR_TABLE (char_table)->contents[charset + 128] = value;
return value;
}
char_table = temp;
if (! SUB_CHAR_TABLE_P (char_table))
if (SUB_CHAR_TABLE_P (temp))
char_table = temp;
else
char_table = (XCHAR_TABLE (char_table)->contents[charset + 128]
= make_sub_char_table (temp));
= make_sub_char_table (temp));
temp = XCHAR_TABLE (char_table)->contents[code1];
if (SUB_CHAR_TABLE_P (temp))
XCHAR_TABLE (temp)->defalt = value;