From: Eli Zaretskii Date: Thu, 4 May 2000 16:12:32 +0000 (+0000) Subject: (cjk-codepages-alist): Add associations for X-Git-Tag: emacs-pretest-21.0.90~4051 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=7b081c7882b111c7a1bd892824355f9a49b9863f;p=emacs.git (cjk-codepages-alist): Add associations for Chinese and Korean codepages. --- diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 75adc06fd7d..a3a033a891d 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2000-05-04 Eli Zaretskii + + * term/internal.el (cjk-codepages-alist): Add associations for + Chinese and Korean codepages. Remove FIXME comment. + 2000-05-03 Dave Love * time.el (display-time-mail-face, display-time-use-mail-icon): diff --git a/lisp/term/internal.el b/lisp/term/internal.el index 7568510bfeb..afc5faa2d03 100644 --- a/lisp/term/internal.el +++ b/lisp/term/internal.el @@ -327,11 +327,11 @@ display tables, and the language environment options as appropriate." (run-hooks 'dos-codepage-setup-hook) )) -;; FIXME: Korean and Chinese codepages should be added here, but I -;; don't know what coding systems do they support. The codepages in -;; point are 934, 936, 938, 944, and 948. (defvar cjk-codepages-alist - '((932 "Japanese" japanese-shift-jis)) + '((932 "Japanese" japanese-shift-jis) + (950 "Chinese-BIG5" cn-big5) + (936 "Chinese-GB" cn-gb-2312) + (949 "Korean" euc-kr)) "An alist of Far-Eastern codepages and the names of the associated language and supported coding system.") @@ -355,7 +355,7 @@ list. You can (and should) also run it whenever the value of ;; MULE native coding systems directly. (setq coding-dos (intern (format "%s-dos" coding)) coding-unix (intern (format "%s-unix" coding))) - (set-language-environment (car desc)) + (set-language-environment lang) (set-selection-coding-system coding-dos) (setq file-name-coding-system coding-unix) (set-terminal-coding-system