From b732654347e336fa875a2b1e0e4a0d78e5b51594 Mon Sep 17 00:00:00 2001
From: tomo <tomo>
Date: Wed, 14 Nov 2001 05:29:58 +0000
Subject: [PATCH] (char_encode_big5): Prefer charset-g1 than `chinese-big5'.

---
 src/text-coding.c |    7 +++++++
 1 file changed, 7 insertions(+)

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