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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 842969faa083012be91594ee43750938b01fc3b5..263107d61774fa9aa65c34f7f83cc9e413bd6d00 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  Nick Roberts  <nickrob@snap.net.nz>
 
        * progmodes/gdb-ui.el (gdb-set-header): New function.

diff --git a/lisp/language/korean.el b/lisp/language/korean.el
index e8e78bfc47bab53f2760e24165c409275f5ad3f6..07382dff1daa18f4c9d319a9ef46cf0d8b31863c 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: