From: Chong Yidong <cyd@stupidchicken.com>
Date: Thu, 4 Jun 2009 01:06:04 +0000 (+0000)
Subject: * coding.c (get_translation_table): Check Venable_character_translation.
X-Git-Tag: emacs-pretest-23.0.95~152
X-Git-Url: https://code.delx.au/gnu-emacs/commitdiff_plain/4bed590990517dec4e92c5e0241f826004cd67e8

* coding.c (get_translation_table): Check Venable_character_translation.
---

diff --git a/src/coding.c b/src/coding.c
index 23690bc753..aeb2b35549 100644
--- a/src/coding.c
+++ b/src/coding.c
@@ -6623,6 +6623,12 @@ get_translation_table (attrs, encodep, max_lookup)
   Lisp_Object standard, translation_table;
   Lisp_Object val;
 
+  if (NILP (Venable_character_translation))
+    {
+      if (max_lookup)
+	*max_lookup = 0;
+      return Qnil;
+    }
   if (encodep)
     translation_table = CODING_ATTR_ENCODE_TBL (attrs),
       standard = Vstandard_translation_table_for_encode;