From: Kenichi Handa <handa@m17n.org>
Date: Thu, 18 Jun 2009 07:21:49 +0000 (+0000)
Subject: Cancel the unexpected changes.
X-Git-Tag: emacs-pretest-23.0.95~19
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=647123d8f2b20d02fd7adc2a4c8816e766f65234;p=emacs.git

Cancel the unexpected changes.
---

diff --git a/lisp/language/korean.el b/lisp/language/korean.el
index e8e78bfc47b..2a1c96c9757 100644
--- a/lisp/language/korean.el
+++ b/lisp/language/korean.el
@@ -43,6 +43,7 @@
 
 (define-coding-system-alias 'euc-kr 'korean-iso-8bit)
 (define-coding-system-alias 'euc-korea 'korean-iso-8bit)
+(define-coding-system-alias 'cp949 'korean-iso-8bit)
 
 (define-coding-system 'iso-2022-kr
   "ISO 2022 based 7-bit encoding for Korean KSC5601 (MIME:ISO-2022-KR)."
@@ -57,14 +58,6 @@
 
 (define-coding-system-alias 'korean-iso-7bit-lock 'iso-2022-kr)
 
-(define-coding-system 'korean-cp949
-  "CP949 (Microsoft Unified Hangul Code)"
-  :coding-type 'charset
-  :mnemonic ?K
-  :charset-list '(ascii cp949))
-
-(define-coding-system-alias 'cp949 'korean-cp949)
-
 (set-language-info-alist
  "Korean" '((setup-function . setup-korean-environment-internal)
 	    (exit-function . exit-korean-environment)