[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] emacs/lisp/language korean.el
From: |
Kenichi Handa |
Subject: |
[Emacs-diffs] emacs/lisp/language korean.el |
Date: |
Thu, 18 Jun 2009 07:21:49 +0000 |
CVSROOT: /cvsroot/emacs
Module name: emacs
Changes by: Kenichi Handa <handa> 09/06/18 07:21:49
Modified files:
lisp/language : korean.el
Log message:
Cancel the unexpected changes.
CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/language/korean.el?cvsroot=emacs&r1=1.42&r2=1.43
Patches:
Index: korean.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/language/korean.el,v
retrieving revision 1.42
retrieving revision 1.43
diff -u -b -r1.42 -r1.43
--- korean.el 18 Jun 2009 01:15:32 -0000 1.42
+++ korean.el 18 Jun 2009 07:21:49 -0000 1.43
@@ -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)