changeset 97816:9999d9194509

(Vunicode_category_table): New variable. (syms_of_character): DEFVAR_LISP Vunicode_category_table.
author Kenichi Handa <handa@m17n.org>
date Fri, 29 Aug 2008 07:52:46 +0000
parents 16c66957c2e3
children f15876e66681
files src/character.c
diffstat 1 files changed, 11 insertions(+), 0 deletions(-) [+]
line wrap: on
line diff
--- 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 */