From 53a8fa1ed797934aa72983f8b4a36cc47fa735cc Mon Sep 17 00:00:00 2001
From: tomo <tomo>
Date: Fri, 29 Oct 1999 06:30:06 +0000
Subject: [PATCH] (char_encode_shift_jis): Use `charset_code_point' not to use
 `XCHARSET_ENCODING_TABLE (Vcharset_latin_jisx0201)'.

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

diff --git a/src/text-coding.c b/src/text-coding.c
index 016f343..fd1dc8f 100644
--- a/src/text-coding.c
+++ b/src/text-coding.c
@@ -2980,16 +2980,16 @@ char_encode_shift_jis (struct encoding_stream *str, Emchar ch,
     }
   else
     {
-      Lisp_Object charset, value;
+      Lisp_Object charset;
       unsigned int c1, c2, s1, s2;
-      
 #ifdef UTF2000
-      if (INTP (value =
-		get_char_code_table
-		(ch, XCHARSET_ENCODING_TABLE (Vcharset_latin_jisx0201))))
+      Lisp_Object value = charset_code_point (Vcharset_latin_jisx0201, ch);
+      Lisp_Object ret = Fcar (value);
+
+      if (INTP (ret))
 	{
 	  charset = Vcharset_latin_jisx0201;
-	  c1 = XINT (value);
+	  c1 = XINT (ret);
 	  c2 = 0;
 	}
       else
-- 
1.7.10.4