From: tomo <tomo>
Date: Thu, 10 Jun 1999 14:56:03 +0000 (+0000)
Subject: (rep_bytes_by_first_byte): Modified for character representation
X-Git-Tag: r21-2-15-char-ucs4-1~3
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=62db200f53a6f2c8e3d7c58acdbc2030e0bfda91;p=chise%2Fxemacs-chise.git-

(rep_bytes_by_first_byte): Modified for character representation
change.
(Vutf_2000_version): New variable.
(leading_code_private_11): New variable.
(syms_of_mule_charset): Add new variables `utf-2000-version' and
`leading-code-private-11'.
---

diff --git a/src/mule-charset.c b/src/mule-charset.c
index 739e6ba..ef19c6b 100644
--- a/src/mule-charset.c
+++ b/src/mule-charset.c
@@ -98,13 +98,17 @@ Bytecount rep_bytes_by_first_byte[0xA0] =
   1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
   1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
   /* 0x80 - 0x8f are for Dimension-1 official charsets */
-  2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
+  2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 3,
   /* 0x90 - 0x9d are for Dimension-2 official charsets */
   /* 0x9e is for Dimension-1 private charsets */
   /* 0x9f is for Dimension-2 private charsets */
   3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 4
 };
 
+Lisp_Object Vutf_2000_version;
+
+int leading_code_private_11;
+
 Lisp_Object Qcharsetp;
 
 /* Qdoc_string, Qdimension, Qchars defined in general.c */
@@ -1277,6 +1281,17 @@ syms_of_mule_charset (void)
   defsymbol (&Qchinese_big5_2,		"chinese-big5-2");
 
   defsymbol (&Qcomposite,		"composite");
+
+  Vutf_2000_version = build_string("0.1");
+  DEFVAR_LISP ("utf-2000-version", &Vutf_2000_version /*
+Version number of UTF-2000.
+*/ );
+
+  leading_code_private_11 = PRE_LEADING_BYTE_PRIVATE_1;
+  DEFVAR_INT ("leading-code-private-11", &leading_code_private_11 /*
+Leading-code of private TYPE9N charset of column-width 1.
+*/ );
+  leading_code_private_11 = PRE_LEADING_BYTE_PRIVATE_1;
 }
 
 void