X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=src%2Fmule.c;h=39ce979ba3d4da1d8aef28d5af7dfaa8c7f26a15;hb=ac155f65fdad732a944b5217c90d8340818e0c0a;hp=3ebc9f8179c49a14fd517faa605a563a6fbcabdf;hpb=3bafe079cbc7c916cb68754050d41ab028092e63;p=chise%2Fxemacs-chise.git-

diff --git a/src/mule.c b/src/mule.c
index 3ebc9f8..39ce979 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 MORIOKA Tomohiko
 
 This file is part of XEmacs.
 
@@ -40,7 +41,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 +94,10 @@ accept a pattern compiled by 'regexp-compile' with word-option t.
 
 #endif /* MULE_REGEXP */
 
+#ifdef UTF2000
+Lisp_Object Vutf_2000_version;
+#endif
+
 
 void
 syms_of_mule (void)
@@ -116,6 +121,15 @@ vars_of_mule (void)
 
 #ifdef UTF2000
   Fprovide (intern ("utf-2000"));
+
+  Vutf_2000_version = build_string("0.19 (Kōriyama)");
+  DEFVAR_LISP ("utf-2000-version", &Vutf_2000_version /*
+Version number of XEmacs UTF-2000.
+*/ );
+#endif
+
+#ifdef HAVE_CHISE_CLIENT
+  Fprovide (intern ("chise"));
 #endif
 
 #ifdef HAVE_EGG