diff options
| author | Kenichi Handa <handa@m17n.org> | 2011-08-23 20:48:07 +0900 |
|---|---|---|
| committer | Kenichi Handa <handa@m17n.org> | 2011-08-23 20:48:07 +0900 |
| commit | 0902a04edd7a2e0ca5d73fd996e46f26d5228501 (patch) | |
| tree | f525281c4570fda4a5d45a5506f79be3f639a502 /src/chartab.c | |
| parent | 823564e519dd1f3e81a79949e1abc033c9e7c0a5 (diff) | |
Fix default values of character properties.
Diffstat (limited to 'src/chartab.c')
| -rw-r--r-- | src/chartab.c | 2 |
1 files changed, 0 insertions, 2 deletions
diff --git a/src/chartab.c b/src/chartab.c index 0cabaac4cf5..1d4ac04312a 100644 --- a/src/chartab.c +++ b/src/chartab.c @@ -589,8 +589,6 @@ DEFUN ("set-char-table-extra-slot", Fset_char_table_extra_slot, (Lisp_Object char_table, Lisp_Object n, Lisp_Object value) { CHECK_CHAR_TABLE (char_table); - if (EQ (XCHAR_TABLE (char_table)->purpose, Qchar_code_property_table)) - error ("Can't change extra-slot of char-code-property-table"); CHECK_NUMBER (n); if (XINT (n) < 0 || XINT (n) >= CHAR_TABLE_EXTRA_SLOTS (XCHAR_TABLE (char_table))) |