# HG changeset patch
# User Kenichi Handa <handa@m17n.org>
# Date 1227772751 0
# Node ID dd35b16ab453cdcd5709d7cec8742f34319d34df
# Parent  b4b305a1dd8301a8d8bc8358874d48bf604008b1
(SET_CATEGORY_SET): Call set_category_set.
(set_category_set): Extern it.

diff -r b4b305a1dd83 -r dd35b16ab453 src/category.h
--- a/src/category.h	Thu Nov 27 07:58:57 2008 +0000
+++ b/src/category.h	Thu Nov 27 07:59:11 2008 +0000
@@ -70,7 +70,7 @@
 /* Make CATEGORY_SET includes (if VAL is t) or excludes (if VAL is
    nil) CATEGORY.  */
 #define SET_CATEGORY_SET(category_set, category, val) \
-  (Faset (category_set, category, val))
+  (set_category_set (category_set, category, val))
 
 #define CHECK_CATEGORY_SET(x) \
   CHECK_TYPE (CATEGORY_SET_P (x), Qcategorysetp, x)
@@ -114,6 +114,7 @@
    && word_boundary_p (c1, c2))
 
 extern int word_boundary_p P_ ((int, int));
+extern void set_category_set P_ ((Lisp_Object, Lisp_Object, Lisp_Object));
 
 /* arch-tag: 309dfe83-c3e2-4d22-8e81-faae5aece0ff
    (do not change this comment) */