# HG changeset patch
# User Eli Zaretskii <eliz@gnu.org>
# Date 957456610 0
# Node ID f3cc4443dca224d52043ef8e3d5d5c0f8433e90a
# Parent  d4a600512af7b951b01ef6c914bb71695af5631d
(cjk-codepages-alist): Add associations for
Chinese and Korean codepages.

diff -r d4a600512af7 -r f3cc4443dca2 lisp/term/internal.el
--- 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