diff options
Diffstat (limited to 'src/category.c')
| -rw-r--r-- | src/category.c | 4 |
1 files changed, 1 insertions, 3 deletions
diff --git a/src/category.c b/src/category.c index bedde0de45e..198b7f6f5ba 100644 --- a/src/category.c +++ b/src/category.c | |||
| @@ -53,7 +53,7 @@ hash_get_category_set (Lisp_Object table, Lisp_Object category_set) | |||
| 53 | (table, 1, | 53 | (table, 1, |
| 54 | make_hash_table (hashtest_equal, DEFAULT_HASH_SIZE, | 54 | make_hash_table (hashtest_equal, DEFAULT_HASH_SIZE, |
| 55 | DEFAULT_REHASH_SIZE, DEFAULT_REHASH_THRESHOLD, | 55 | DEFAULT_REHASH_SIZE, DEFAULT_REHASH_THRESHOLD, |
| 56 | Qnil, false)); | 56 | Qnil)); |
| 57 | struct Lisp_Hash_Table *h = XHASH_TABLE (XCHAR_TABLE (table)->extras[1]); | 57 | struct Lisp_Hash_Table *h = XHASH_TABLE (XCHAR_TABLE (table)->extras[1]); |
| 58 | Lisp_Object hash; | 58 | Lisp_Object hash; |
| 59 | ptrdiff_t i = hash_lookup (h, category_set, &hash); | 59 | ptrdiff_t i = hash_lookup (h, category_set, &hash); |
| @@ -120,8 +120,6 @@ the current buffer's category table. */) | |||
| 120 | 120 | ||
| 121 | if (!NILP (CATEGORY_DOCSTRING (table, XFIXNAT (category)))) | 121 | if (!NILP (CATEGORY_DOCSTRING (table, XFIXNAT (category)))) |
| 122 | error ("Category `%c' is already defined", (int) XFIXNAT (category)); | 122 | error ("Category `%c' is already defined", (int) XFIXNAT (category)); |
| 123 | if (!NILP (Vpurify_flag)) | ||
| 124 | docstring = Fpurecopy (docstring); | ||
| 125 | SET_CATEGORY_DOCSTRING (table, XFIXNAT (category), docstring); | 123 | SET_CATEGORY_DOCSTRING (table, XFIXNAT (category), docstring); |
| 126 | 124 | ||
| 127 | return Qnil; | 125 | return Qnil; |