Mercurial > emacs

diff lisp/international/utf-8.el @ 73349:43ccf7c7d312

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
* international/utf-8.el (utf-translate-cjk-load-tables): Avoid clobbering last-coding-system-used during load.
author Chong Yidong <cyd@stupidchicken.com>
date Fri, 13 Oct 2006 01:41:11 +0000
parents b23c01e98a4b
children 43cc94d955c2
line wrap: on
line diff
--- a/lisp/international/utf-8.el	Thu Oct 12 23:00:44 2006 +0000
+++ b/lisp/international/utf-8.el	Fri Oct 13 01:41:11 2006 +0000
@@ -309,7 +309,10 @@
     ;; 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))
+    (let ((coding-system-for-read nil)
+	  ;; We must avoid clobbering this variable, in case the load
+	  ;; files below use different coding systems.
+	  (last-coding-system-used last-coding-system-used))
       (cond ((string= "Korean" current-language-environment)
 	     (load "subst-jis")
 	     (load "subst-big5")