# HG changeset patch
# User Kenichi Handa <handa@m17n.org>
# Date 1219996366 0
# Node ID 9999d9194509299527cc00868b627a15817b7fc1
# Parent  16c66957c2e34de3db86170bf79cf221df0c1ce3
(Vunicode_category_table): New variable.
(syms_of_character): DEFVAR_LISP Vunicode_category_table.

diff -r 16c66957c2e3 -r 9999d9194509 src/character.c
--- a/src/character.c	Fri Aug 29 07:52:21 2008 +0000
+++ b/src/character.c	Fri Aug 29 07:52:46 2008 +0000
@@ -85,6 +85,8 @@
 
 static Lisp_Object Qchar_script_table;
 
+Lisp_Object Vunicode_category_table;
+
 /* Mapping table from unibyte chars to multibyte chars.  */
 int unibyte_to_multibyte_table[256];
 
@@ -1104,6 +1106,15 @@
   DEFVAR_LISP ("script-representative-chars", &Vscript_representative_chars,
 	       doc: /* Alist of scripts vs the representative characters.  */);
   Vscript_representative_chars = Qnil;
+
+  DEFVAR_LISP ("unicode-category-table", &Vunicode_category_table,
+	       doc: /* Char table of Unicode's "General Category".
+All Unicode characters has one of the following values (symbol):
+  Lw, Ll, Lt, Lm, Lo, Mn, Mc, Me, Nd, Nl, No, Pc, Pd, Ps, Pe, Pi, Pf, Po,
+  Sm, Sc, Sk, So, Zs, Zl, Zp, Cc, Cf, Cs, Co, Cn
+See The Unicode Standard for the meaning of those values.  */);
+  /* The correct char-table is setup in characters.el.  */
+  Vunicode_category_table = Qnil;
 }
 
 #endif /* emacs */