(utf-translate-cjk-load-tables): Bind

coding-system-for-read to nil while loading subst-*.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 34fab033121ec70300657510019796533aba2a98..42fdf4869f94e0ba775cda012c2c2aa432260ac0 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2004-12-27  Kenichi Handa  <handa@m17n.org>
+
+       * international/utf-8.el (utf-translate-cjk-load-tables): Bind
+       coding-system-for-read to nil while loading subst-*.
+
 2004-12-26  Jay Belanger  <belanger@truman.edu>
 
        * calc/calc-store.el (calc-read-var-name): Remove "var-" from

diff --git a/lisp/international/utf-8.el b/lisp/international/utf-8.el
index ed658eb3ddf7fc12985581e58a294025a30fc76c..2fa096300d2f15a375685e84cc641b0cfd0798c2 100644 (file)
--- a/lisp/international/utf-8.el
+++ b/lisp/international/utf-8.el
@@ -305,26 +305,30 @@ use either \\[customize] or the function
     ;; Load the files explicitly, to avoid having to keep
     ;; around the large tables they contain (as well as the
     ;; ones which get built).
-    (cond ((string= "Korean" current-language-environment)
-          (load "subst-jis")
-          (load "subst-big5")
-          (load "subst-gb2312")
-          (load "subst-ksc"))
-         ((string= "Chinese-BIG5" current-language-environment)
-          (load "subst-jis")
-          (load "subst-ksc")
-          (load "subst-gb2312")
-          (load "subst-big5"))
-         ((string= "Chinese-GB" current-language-environment)
-          (load "subst-jis")
-          (load "subst-ksc")
-          (load "subst-big5")
-          (load "subst-gb2312"))
-         (t
-          (load "subst-ksc")
-          (load "subst-gb2312")
-          (load "subst-big5")
-          (load "subst-jis")))   ; jis covers as much as big5, gb2312
+    ;; Here we bind coding-system-for-read to nil so that coding tags
+    ;; in the files are respected even if the files are not yet
+    ;; byte-compiled
+    (let ((coding-system-for-read nil))
+      (cond ((string= "Korean" current-language-environment)
+            (load "subst-jis")
+            (load "subst-big5")
+            (load "subst-gb2312")
+            (load "subst-ksc"))
+           ((string= "Chinese-BIG5" current-language-environment)
+            (load "subst-jis")
+            (load "subst-ksc")
+            (load "subst-gb2312")
+            (load "subst-big5"))
+           ((string= "Chinese-GB" current-language-environment)
+            (load "subst-jis")
+            (load "subst-ksc")
+            (load "subst-big5")
+            (load "subst-gb2312"))
+           (t
+            (load "subst-ksc")
+            (load "subst-gb2312")
+            (load "subst-big5")
+            (load "subst-jis")))) ; jis covers as much as big5, gb2312
 
     (when redefined
       (define-translation-hash-table 'utf-subst-table-for-decode