[Emacs-diffs] emacs/lisp ChangeLog language/korean.el

[Chong Yidong]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Chong Yidong <cyd>      09/06/18 17:53:36

Modified files:
        lisp           : ChangeLog 
        lisp/language  : korean.el 

Log message:
        * language/korean.el (korean-cp949): New coding system.  Set cp949
        as an alias to it.

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/ChangeLog?cvsroot=emacs&r1=1.15692&r2=1.15693
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/language/korean.el?cvsroot=emacs&r1=1.43&r2=1.44

Patches:
Index: ChangeLog
===================================================================
RCS file: /sources/emacs/emacs/lisp/ChangeLog,v
retrieving revision 1.15692
retrieving revision 1.15693
diff -u -b -r1.15692 -r1.15693
--- ChangeLog   18 Jun 2009 17:47:48 -0000      1.15692
+++ ChangeLog   18 Jun 2009 17:53:33 -0000      1.15693
@@ -1,3 +1,8 @@
+2009-06-18  Kenichi Handa  <address@hidden>
+
+       * language/korean.el (korean-cp949): New coding system.  Set cp949
+       as an alias to it.
+
 2009-06-18  Ulrich Mueller  <address@hidden>
 
        * pgg-gpg.el (pgg-gpg-lookup-key-owner): Handle colon listings

Index: language/korean.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/language/korean.el,v
retrieving revision 1.43
retrieving revision 1.44
diff -u -b -r1.43 -r1.44
--- language/korean.el  18 Jun 2009 07:21:49 -0000      1.43
+++ language/korean.el  18 Jun 2009 17:53:36 -0000      1.44
@@ -43,7 +43,6 @@
 
 (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)."
@@ -58,6 +57,14 @@
 
 (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)