From: tomo <tomo>
Date: Sun, 10 Oct 1999 06:18:30 +0000 (+0000)
Subject: (char_encode_shift_jis): Refer
X-Git-Tag: r21-2-19-utf-2000-0_9-0~30
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=e8399be9819462e4a72526af6eaa9b4ec5d3127d;p=chise%2Fxemacs-chise.git-

(char_encode_shift_jis): Refer
`XCHARSET_ENCODING_TABLE(Vcharset_latin_jisx0201)' instead of
`XCHARSET_TO_BYTE1_TABLE(Vcharset_latin_jisx0201)'.
---

diff --git a/src/text-coding.c b/src/text-coding.c
index 50a17fc..05bf7d1 100644
--- a/src/text-coding.c
+++ b/src/text-coding.c
@@ -2980,15 +2980,16 @@ char_encode_shift_jis (struct encoding_stream *str, Emchar ch,
     }
   else
     {
-      Lisp_Object charset;
+      Lisp_Object charset, value;
       unsigned int c1, c2, s1, s2;
       
 #ifdef UTF2000
-      if ( (c1 =
-	    get_byte_from_character_table
-	    (ch, XCHARSET_TO_BYTE1_TABLE (Vcharset_latin_jisx0201))) )
+      if (INTP (value =
+		get_char_code_table
+		(ch, XCHARSET_ENCODING_TABLE (Vcharset_latin_jisx0201))))
 	{
 	  charset = Vcharset_latin_jisx0201;
+	  c1 = XINT (value);
 	  c2 = 0;
 	}
       else