From: Kenichi Handa <handa@m17n.org>
Date: Tue, 15 Oct 2002 01:15:52 +0000 (+0000)
Subject: (decode_coding): Fix args to translate_chars.  Pay
X-Git-Tag: emacs-pretest-23.0.90~8295^2~1864^2~246
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=da4109a9ecbaed9b5835004a03d08278e3743be2;p=emacs.git

(decode_coding): Fix args to translate_chars.  Pay
attention to Vstandard_translation_table_for_decode.
(encode_coding): Fix args to translate_chars.  Pay attention to
Vstandard_translation_table_for_encode.
---

diff --git a/src/coding.c b/src/coding.c
index d23a5ff544c..97a8ea863ee 100644
--- a/src/coding.c
+++ b/src/coding.c
@@ -5584,7 +5584,9 @@ decode_coding (coding)
       coding->annotated = 0;
       (*(coding->decoder)) (coding);
       if (!NILP (CODING_ATTR_DECODE_TBL (attrs)))
-	translate_chars (CODING_ATTR_DECODE_TBL (attrs), coding);
+	translate_chars (coding, CODING_ATTR_DECODE_TBL (attrs));
+      else if (!NILP (Vstandard_translation_table_for_decode))
+	translate_chars (coding, Vstandard_translation_table_for_decode);
       coding_set_destination (coding);
       produce_chars (coding);
       if (coding->annotated)
@@ -5768,7 +5770,9 @@ encode_coding (coding)
     consume_chars (coding);
 
     if (!NILP (CODING_ATTR_ENCODE_TBL (attrs)))
-      translate_chars (CODING_ATTR_ENCODE_TBL (attrs), coding);
+      translate_chars (coding, CODING_ATTR_ENCODE_TBL (attrs));
+    else if (!NILP (Vstandard_translation_table_for_encode))
+      translate_chars (coding, Vstandard_translation_table_for_encode);
 
     coding_set_destination (coding);
     (*(coding->encoder)) (coding);