aboutsummaryrefslogtreecommitdiffstats
path: root/src/category.c
diff options
context:
space:
mode:
Diffstat (limited to 'src/category.c')
-rw-r--r--src/category.c4
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;