From: Chong Yidong Date: Fri, 13 Oct 2006 01:41:11 +0000 (+0000) Subject: * international/utf-8.el (utf-translate-cjk-load-tables): Avoid X-Git-Tag: emacs-pretest-22.0.90~145 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=d81608e0842c2d1646e9b5407c2a308b624da251;p=emacs.git * international/utf-8.el (utf-translate-cjk-load-tables): Avoid clobbering last-coding-system-used during load. --- diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 0257de0c420..fc45f235609 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2006-10-12 Chong Yidong + + * international/utf-8.el (utf-translate-cjk-load-tables): Avoid + clobbering last-coding-system-used during load. + 2006-10-12 Carsten Dominik * textmodes/reftex-global.el (reftex-create-tags-file): Quote file diff --git a/lisp/international/utf-8.el b/lisp/international/utf-8.el index 384d973db9f..7a57a3d099b 100644 --- a/lisp/international/utf-8.el +++ b/lisp/international/utf-8.el @@ -309,7 +309,10 @@ use either \\[customize] or the function ;; 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")