mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-20 19:42:53 -08:00
Code Issues Projects Releases Wiki Activity

(char_table_ascii): Check if the char table contents

Browse source 
is sub-char-table or not.
(char_table_set): Fix argument to char_table_ascii.
(char_table_set_range): Likewise.
This commit is contained in:
Kenichi Handa 2003-01-06 13:26:04 +00:00
parent 5a84378502
commit 40033db7ce
1 changed files with 6 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

8
src/chartab.c
View file

@ -114,7 +114,11 @@ char_table_ascii (table)
Lisp_Object sub;
sub = XCHAR_TABLE (table)->contents[0];
if (! SUB_CHAR_TABLE_P (sub))
return sub;
sub = XSUB_CHAR_TABLE (sub)->contents[0];
if (! SUB_CHAR_TABLE_P (sub))
return sub;
return XSUB_CHAR_TABLE (sub)->contents[0];
}
@ -415,7 +419,7 @@ char_table_set (table, c, val)
}
sub_char_table_set (sub, c, val);
if (ASCII_CHAR_P (c))
tbl->ascii = char_table_ascii (tbl);
tbl->ascii = char_table_ascii (table);
}
return val;
}
@ -472,7 +476,7 @@ char_table_set_range (table, from, to, val)
i++, min_char += chartab_chars[0])
sub_char_table_set_range (contents + i, 0, min_char, from, to, val);
if (ASCII_CHAR_P (from))
tbl->ascii = char_table_ascii (tbl);
tbl->ascii = char_table_ascii (table);
}
return val;
}