X-Git-Url: http://git.chise.org/gitweb/?p=chise%2Fxemacs-chise.git.1;a=blobdiff_plain;f=src%2Fmule.c;h=e5ae116f50a14cc822cf2a13e78eb5ea00e77c51;hp=36274cfd6bf23ad41ff3ab6446dfeffcc2e12180;hb=566b3d194e2d5c783808ac39437bd7e1a28b1c5c;hpb=2e3e3f9ee27fec50f45c282d71eaddf7c673bc56

diff --git a/src/mule.c b/src/mule.c
index 36274cf..e5ae116 100644
--- a/src/mule.c
+++ b/src/mule.c
@@ -1,4 +1,6 @@
 /* Copyright (C) 1995 Free Software Foundation.
+   Copyright (C) 1999, 2000, 2001, 2002, 2003, 2005, 2006, 2007, 2010
+     MORIOKA Tomohiko
 
 This file is part of XEmacs.
 
@@ -40,7 +42,7 @@ accept a pattern compiled by 'regexp-compile' with word-option t.
   int i, len;
   char *p;
   Lisp_Object temp;
-  struct Lisp_String *s;
+  Lisp_String *s;
 
   CHECK_CONS (pattern);
   len = XINT (Flength (pattern));
@@ -93,6 +95,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 +120,22 @@ vars_of_mule (void)
 
   Fprovide (intern ("mule"));
 
+#ifdef UTF2000
+  Fprovide (intern ("utf-2000"));
+
+  Vxemacs_chise_version = build_string("0.25 (Ōkawara)");
+  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