From: tomo <tomo>
Date: Wed, 14 Nov 2001 05:29:58 +0000 (+0000)
Subject: (char_encode_big5): Prefer charset-g1 than `chinese-big5'.
X-Git-Tag: r21-2-41-utf-2000-0_18-1~5
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=b732654347e336fa875a2b1e0e4a0d78e5b51594;p=chise%2Fxemacs-chise.git-

(char_encode_big5): Prefer charset-g1 than `chinese-big5'.
---

diff --git a/src/text-coding.c b/src/text-coding.c
index ee37027..2a0ed68 100644
--- a/src/text-coding.c
+++ b/src/text-coding.c
@@ -3680,9 +3680,16 @@ char_encode_big5 (struct encoding_stream *str, Emchar ch,
     {
 #ifdef UTF2000
       int code_point;
+      Lisp_Object ccs
+	= CODING_SYSTEM_ISO2022_INITIAL_CHARSET (str->codesys, 1);
 
       if ((code_point = charset_code_point (Vcharset_ascii, ch)) >= 0)
 	Dynarr_add (dst, code_point);
+      else if ((code_point = charset_code_point (ccs, ch)) >= 0)
+	{
+	  Dynarr_add (dst, code_point >> 8);
+	  Dynarr_add (dst, code_point & 0xFF);
+	}
       else if ((code_point
 		= charset_code_point (Vcharset_chinese_big5, ch)) >= 0)
 	{