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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 1afa4ea..f232753 100644 (file)
--- 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 e8e78bf..07382df 100644 (file)
--- 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 (\e$(CGQ1[\e(B)        \e$(C>H3gGO<<?d\e(B, \e$(C>H3gGO=J4O1n\e(B")
            (documentation . "\
 The following key bindings are available for controlling Korean input methods: