diff options
| author | Joakim Verona | 2011-08-25 07:11:38 +0200 |
|---|---|---|
| committer | Joakim Verona | 2011-08-25 07:11:38 +0200 |
| commit | eff2e78688e5347aed84f237fabfa5829492feb1 (patch) | |
| tree | 8033a98014481f35874226802703980d1b3481f1 /src/chartab.c | |
| parent | 2002bbd139da85246597a131d0b43c4ef921f233 (diff) | |
| parent | e4ed06f12b052a3c80d5c572889cb670a41f3c7d (diff) | |
| download | emacs-eff2e78688e5347aed84f237fabfa5829492feb1.tar.gz emacs-eff2e78688e5347aed84f237fabfa5829492feb1.zip | |
upstream
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))) |