X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;ds=sidebyside;f=src%2Fmule.c;h=82f46056ef45e9994f43816bea86a59a9e0f7a8a;hb=dc94f932e84b18f316dddeb9e0559b0d3d6d391f;hp=9f4cdefd98749fdfb2d9d32570926255e4cc9e86;hpb=716cfba952c1dc0d2cf5c968971f3780ba728a89;p=chise%2Fxemacs-chise.git.1

diff --git a/src/mule.c b/src/mule.c
index 9f4cdef..82f4605 100644
--- a/src/mule.c
+++ b/src/mule.c
@@ -1,4 +1,5 @@
 /* Copyright (C) 1995 Free Software Foundation.
+   Copyright (C) 1999,2000,2001,2002,2003,2005,2006,2007 MORIOKA Tomohiko
 
 This file is part of XEmacs.
 
@@ -93,6 +94,10 @@ accept a pattern compiled by 'regexp-compile' with word-option t.
 
 #endif /* MULE_REGEXP */
 
+#ifdef UTF2000
+Lisp_Object Vxemacs_chise_version;
+#endif
+
 
 void
 syms_of_mule (void)
@@ -114,6 +119,22 @@ vars_of_mule (void)
 
   Fprovide (intern ("mule"));
 
+#ifdef UTF2000
+  Fprovide (intern ("utf-2000"));
+
+  Vxemacs_chise_version = build_string("0.24 (Kasagi)");
+  DEFVAR_LISP ("xemacs-chise-version", &Vxemacs_chise_version /*
+Version number of XEmacs CHISE.
+*/ );
+  DEFVAR_LISP ("utf-2000-version", &Vxemacs_chise_version /*
+Version number of XEmacs CHISE.
+*/ );
+#endif
+
+#ifdef HAVE_CHISE
+  Fprovide (intern ("chise"));
+#endif
+
 #ifdef HAVE_EGG
   Fprovide (intern ("egg"));
 #endif