(set-language-info-alist): Add korean-cp949, cp949 to spec.

2 files changed, 8 insertions, 3 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 1afa4ea272d..f2327532354 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2009-07-01  Eduard Wiebe  <usenet@pusto.de>  (tiny change)
+
+        * language/korean.el (set-language-info-alist): Add korean-cp949,
+        cp949 to spec.
+
 2009-07-01  Kenichi Handa  <handa@m17n.org>
 
         * Makefile.in (ELCFILES): Delete encoded-kb.elc.
diff --git a/lisp/language/korean.el b/lisp/language/korean.el
index e8e78bfc47b..07382dff1da 100644
--- a/lisp/language/korean.el
+++ b/lisp/language/korean.el
@@ -70,11 +70,11 @@
             (exit-function . exit-korean-environment)
             (iso639-language . ko)
             (tutorial . "TUTORIAL.ko")
-            (charset korean-ksc5601)
-            (coding-system iso-2022-kr korean-iso-8bit)
+            (charset korean-ksc5601 cp949)
+            (coding-system iso-2022-kr korean-iso-8bit korean-cp949)
             (input-method . "korean-hangul")
             (features korea-util)
-            (coding-priority korean-iso-8bit iso-2022-kr)
+            (coding-priority korean-iso-8bit korean-cp949 iso-2022-kr)
             (sample-text . "Hangul ($(CGQ1[(B)        $(C>H3gGO<<?d(B, $(C>H3gGO=J4O1n(B")
             (documentation . "\
 The following key bindings are available for controlling Korean input methods: