From 647123d8f2b20d02fd7adc2a4c8816e766f65234 Mon Sep 17 00:00:00 2001 From: Kenichi Handa Date: Thu, 18 Jun 2009 07:21:49 +0000 Subject: [PATCH] Cancel the unexpected changes. --- lisp/language/korean.el | 9 +-------- 1 file changed, 1 insertion(+), 8 deletions(-) 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) -- 2.39.2