From 49177a93dff4f349cb9c5474a32e0bc2720cf86b Mon Sep 17 00:00:00 2001 From: tomo Date: Mon, 29 Jul 2002 16:26:51 +0000 Subject: [PATCH] (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. --- src/text-coding.c | 11 +++++++---- 1 file changed, 7 insertions(+), 4 deletions(-) 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) -- 1.7.10.4