diff options
| author | Kenichi Handa | 2011-08-23 20:48:07 +0900 |
|---|---|---|
| committer | Kenichi Handa | 2011-08-23 20:48:07 +0900 |
| commit | 0902a04edd7a2e0ca5d73fd996e46f26d5228501 (patch) | |
| tree | f525281c4570fda4a5d45a5506f79be3f639a502 /src/chartab.c | |
| parent | 823564e519dd1f3e81a79949e1abc033c9e7c0a5 (diff) | |
| download | emacs-0902a04edd7a2e0ca5d73fd996e46f26d5228501.tar.gz emacs-0902a04edd7a2e0ca5d73fd996e46f26d5228501.zip | |
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, | |||
| 589 | (Lisp_Object char_table, Lisp_Object n, Lisp_Object value) | 589 | (Lisp_Object char_table, Lisp_Object n, Lisp_Object value) |
| 590 | { | 590 | { |
| 591 | CHECK_CHAR_TABLE (char_table); | 591 | CHECK_CHAR_TABLE (char_table); |
| 592 | if (EQ (XCHAR_TABLE (char_table)->purpose, Qchar_code_property_table)) | ||
| 593 | error ("Can't change extra-slot of char-code-property-table"); | ||
| 594 | CHECK_NUMBER (n); | 592 | CHECK_NUMBER (n); |
| 595 | if (XINT (n) < 0 | 593 | if (XINT (n) < 0 |
| 596 | || XINT (n) >= CHAR_TABLE_EXTRA_SLOTS (XCHAR_TABLE (char_table))) | 594 | || XINT (n) >= CHAR_TABLE_EXTRA_SLOTS (XCHAR_TABLE (char_table))) |