Mercurial > emacs

changeset 28807:f3cc4443dca2

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(cjk-codepages-alist): Add associations for Chinese and Korean codepages.
author Eli Zaretskii <eliz@gnu.org>
date Thu, 04 May 2000 16:10:10 +0000
parents d4a600512af7
children fe325f67600d
files lisp/term/internal.el
diffstat 1 files changed, 5 insertions(+), 5 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/term/internal.el	Wed May 03 21:40:11 2000 +0000
+++ b/lisp/term/internal.el	Thu May 04 16:10:10 2000 +0000
@@ -327,11 +327,11 @@
     (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 @@
       ;; 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