From: tomo <tomo>
Date: Mon, 29 Jul 2002 16:26:51 +0000 (+0000)
Subject: (Qutf_8_mcs): New variable.
X-Git-Tag: r21-2-44-utf-2000-0_19-nc4~6
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=49177a93dff4f349cb9c5474a32e0bc2720cf86b;p=chise%2Fxemacs-chise.git

(Qutf_8_mcs): New variable.
(syms_of_file_coding): Add new symbol `utf-8-mcs' in UTF-2000.
(complex_vars_of_file_coding): Define coding-system `utf-8-mcs'
instead of `utf-8' in UTF-2000.
---

diff --git a/src/text-coding.c b/src/text-coding.c
index 187d2a9..3e55951 100644
--- a/src/text-coding.c
+++ b/src/text-coding.c
@@ -105,6 +105,7 @@ Lisp_Object Qescape_quoted;
 Lisp_Object Qshort, Qno_ascii_eol, Qno_ascii_cntl, Qseven, Qlock_shift;
 #endif
 #ifdef UTF2000
+Lisp_Object Qutf_8_mcs;
 Lisp_Object Qdisable_composition;
 Lisp_Object Quse_entity_reference;
 Lisp_Object Qd, Qx, QX;
@@ -6033,6 +6034,7 @@ syms_of_file_coding (void)
   defsymbol (&Qescape_quoted, "escape-quoted");
 #endif /* MULE */
 #ifdef UTF2000
+  defsymbol (&Qutf_8_mcs, "utf-8-mcs");
   defsymbol (&Qdisable_composition, "disable-composition");
   defsymbol (&Quse_entity_reference, "use-entity-reference");
   defsymbol (&Qd, "d");
@@ -6227,9 +6229,10 @@ complex_vars_of_file_coding (void)
 
 #ifdef UTF2000
   Fmake_coding_system
-    (Qutf8, Qutf8,
-     build_string ("Coding-system of ISO/IEC 10646 UTF-8."),
-     list2 (Qmnemonic, build_string ("UTF8")));
+    (Qutf_8_mcs, Qutf8,
+     build_string
+     ("Coding-system of UTF-8 with Multiple Coded-character-Sets extension."),
+     list2 (Qmnemonic, build_string ("MTF8")));
 #endif
 
   Fdefine_coding_system_alias (Qno_conversion, Qraw_text);
@@ -6245,7 +6248,7 @@ complex_vars_of_file_coding (void)
 
 #ifdef UTF2000
   fcd->coding_category_system[CODING_CATEGORY_UTF8]
-   = Fget_coding_system (Qutf8);
+   = Fget_coding_system (Qutf_8_mcs);
 #endif
 
 #if defined(MULE) && !defined(UTF2000)