From d81608e0842c2d1646e9b5407c2a308b624da251 Mon Sep 17 00:00:00 2001 From: Chong Yidong Date: Fri, 13 Oct 2006 01:41:11 +0000 Subject: [PATCH] * international/utf-8.el (utf-translate-cjk-load-tables): Avoid clobbering last-coding-system-used during load. --- lisp/ChangeLog | 5 +++++ lisp/international/utf-8.el | 5 ++++- 2 files changed, 9 insertions(+), 1 deletion(-) 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") -- 2.39.2