X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=src%2Ftext-coding.c;h=2a0ed68dbbcf19623fcb188897a45c3585d41971;hb=568bcab38a79ef3605b98e8a9af1be258747231f;hp=ee3702755f9dc479b46c09d4e77d030423308a58;hpb=6b6a82ba290fb4b2f77bf25f5d5358f6416f85ab;p=chise%2Fxemacs-chise.git

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)
 	{