From: Kenichi Handa <handa@m17n.org>
Date: Thu, 7 Sep 2000 12:04:09 +0000 (+0000)
Subject: (encode_coding_sjis_big5): Use translation table for
X-Git-Tag: emacs-pretest-21.0.90~1733
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=39658efc4056074ede7d8a343ac6d735d00019e4;p=emacs.git

(encode_coding_sjis_big5): Use translation table for
encoding, not decoding.   Check for the charset katakana-jisx0201,
not latin-jisx0201.
(ONE_MORE_CHAR): Call translate_char with CHARSET arg -1.
---

diff --git a/src/coding.c b/src/coding.c
index 1f10672d840..8e284122ee4 100644
--- a/src/coding.c
+++ b/src/coding.c
@@ -235,7 +235,7 @@ encode_coding_XXX (coding, source, destination, src_bytes, dst_bytes)
     else							\
       c = *src, bytes = 1;					\
     if (!NILP (translation_table))				\
-      c = translate_char (translation_table, c, 0, 0, 0);	\
+      c = translate_char (translation_table, c, -1, 0, 0);	\
     src += bytes;						\
   } while (0)
 
@@ -2549,9 +2549,9 @@ encode_coding_sjis_big5 (coding, source, destination,
     translation_table = Qnil;
   else
     {
-      translation_table = coding->translation_table_for_decode;
+      translation_table = coding->translation_table_for_encode;
       if (NILP (translation_table))
-	translation_table = Vstandard_translation_table_for_decode;
+	translation_table = Vstandard_translation_table_for_encode;
     }
 
   while (1)
@@ -2596,8 +2596,8 @@ encode_coding_sjis_big5 (coding, source, destination,
 		  ENCODE_SJIS (c1, c2, c1, c2);
 		  EMIT_TWO_BYTES (c1, c2);
 		}
-	      else if (charset == charset_latin_jisx0201)
-		EMIT_ONE_BYTE (c1);
+	      else if (charset == charset_katakana_jisx0201)
+		EMIT_ONE_BYTE (c1 | 0x80);
 	      else
 		/* There's no way other than producing the internal
 		   codes as is.  */