Mercurial > emacs
comparison lisp/international/utf-8.el @ 73349:43ccf7c7d312
* 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 |
comparison
equal
deleted
inserted
replaced
| 73348:c51c8fa9c1f1 | 73349:43ccf7c7d312 |
|---|---|
| 307 ;; around the large tables they contain (as well as the | 307 ;; around the large tables they contain (as well as the |
| 308 ;; ones which get built). | 308 ;; ones which get built). |
| 309 ;; Here we bind coding-system-for-read to nil so that coding tags | 309 ;; Here we bind coding-system-for-read to nil so that coding tags |
| 310 ;; in the files are respected even if the files are not yet | 310 ;; in the files are respected even if the files are not yet |
| 311 ;; byte-compiled | 311 ;; byte-compiled |
| 312 (let ((coding-system-for-read nil)) | 312 (let ((coding-system-for-read nil) |
| 313 ;; We must avoid clobbering this variable, in case the load | |
| 314 ;; files below use different coding systems. | |
| 315 (last-coding-system-used last-coding-system-used)) | |
| 313 (cond ((string= "Korean" current-language-environment) | 316 (cond ((string= "Korean" current-language-environment) |
| 314 (load "subst-jis") | 317 (load "subst-jis") |
| 315 (load "subst-big5") | 318 (load "subst-big5") |
| 316 (load "subst-gb2312") | 319 (load "subst-gb2312") |
| 317 (load "subst-ksc")) | 320 (load "subst-ksc")) |