Sync up with r21-4-14-chise-0_21-3.
[chise/xemacs-chise.git] / lisp / utf-2000 / u03130-Hangul-Compatibility-Jamo.el
index 15a9320..82c3139 100644 (file)
+;; -*- coding: utf-8-mcs -*-
 (define-char
   '((name              . "HANGUL LETTER KIYEOK")
-    (ucs               . #x3131)
     (general-category  letter other) ; Informative Category
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   compat #x1100)
-    (korean-ksc5601    #x24 #x21)      ; 
+    (=ucs              . #x3131)       ; ㄱ
+    (=ks-x1001         . #x2421)       ; 
     ))
 (define-char
   '((name              . "HANGUL LETTER SSANGKIYEOK")
-    (ucs               . #x3132)
     (general-category  letter other) ; Informative Category
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   compat #x1101)
-    (korean-ksc5601    #x24 #x22)      ; 
+    (=ucs              . #x3132)       ; ㄲ
+    (=ks-x1001         . #x2422)       ; 
     ))
 (define-char
   '((name              . "HANGUL LETTER KIYEOK-SIOS")
-    (ucs               . #x3133)
     (general-category  letter other) ; Informative Category
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   compat #x11AA)
-    (korean-ksc5601    #x24 #x23)      ; 
+    (=ucs              . #x3133)       ; ㄳ
+    (=ks-x1001         . #x2423)       ; 
     ))
 (define-char
   '((name              . "HANGUL LETTER NIEUN")
-    (ucs               . #x3134)
     (general-category  letter other) ; Informative Category
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   compat #x1102)
-    (korean-ksc5601    #x24 #x24)      ; 
+    (=ucs              . #x3134)       ; ㄴ
+    (=ks-x1001         . #x2424)       ; 
     ))
 (define-char
   '((name              . "HANGUL LETTER NIEUN-CIEUC")
-    (ucs               . #x3135)
     (general-category  letter other) ; Informative Category
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   compat #x11AC)
-    (korean-ksc5601    #x24 #x25)      ; 
+    (=ucs              . #x3135)       ; ㄵ
+    (=ks-x1001         . #x2425)       ; 
     ))
 (define-char
   '((name              . "HANGUL LETTER NIEUN-HIEUH")
-    (ucs               . #x3136)
     (general-category  letter other) ; Informative Category
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   compat #x11AD)
-    (korean-ksc5601    #x24 #x26)      ; 
+    (=ucs              . #x3136)       ; ㄶ
+    (=ks-x1001         . #x2426)       ; 
     ))
 (define-char
   '((name              . "HANGUL LETTER TIKEUT")
-    (ucs               . #x3137)
     (general-category  letter other) ; Informative Category
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   compat #x1103)
-    (korean-ksc5601    #x24 #x27)      ; 
+    (=ucs              . #x3137)       ; ㄷ
+    (=ks-x1001         . #x2427)       ; 
     ))
 (define-char
   '((name              . "HANGUL LETTER SSANGTIKEUT")
-    (ucs               . #x3138)
     (general-category  letter other) ; Informative Category
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   compat #x1104)
-    (korean-ksc5601    #x24 #x28)      ; 
+    (=ucs              . #x3138)       ; ㄸ
+    (=ks-x1001         . #x2428)       ; 
     ))
 (define-char
   '((name              . "HANGUL LETTER RIEUL")
-    (ucs               . #x3139)
     (general-category  letter other) ; Informative Category
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   compat #x1105)
-    (korean-ksc5601    #x24 #x29)      ; 
+    (=ucs              . #x3139)       ; ㄹ
+    (=ks-x1001         . #x2429)       ; 
     ))
 (define-char
   '((name              . "HANGUL LETTER RIEUL-KIYEOK")
-    (ucs               . #x313A)
     (general-category  letter other) ; Informative Category
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   compat #x11B0)
-    (korean-ksc5601    #x24 #x2A)      ; 
+    (=ucs              . #x313A)       ; ㄺ
+    (=ks-x1001         . #x242A)       ; 
     ))
 (define-char
   '((name              . "HANGUL LETTER RIEUL-MIEUM")
-    (ucs               . #x313B)
     (general-category  letter other) ; Informative Category
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   compat #x11B1)
-    (korean-ksc5601    #x24 #x2B)      ; 
+    (=ucs              . #x313B)       ; ㄻ
+    (=ks-x1001         . #x242B)       ; 
     ))
 (define-char
   '((name              . "HANGUL LETTER RIEUL-PIEUP")
-    (ucs               . #x313C)
     (general-category  letter other) ; Informative Category
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   compat #x11B2)
-    (korean-ksc5601    #x24 #x2C)      ; 
+    (=ucs              . #x313C)       ; ㄼ
+    (=ks-x1001         . #x242C)       ; 
     ))
 (define-char
   '((name              . "HANGUL LETTER RIEUL-SIOS")
-    (ucs               . #x313D)
     (general-category  letter other) ; Informative Category
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   compat #x11B3)
-    (korean-ksc5601    #x24 #x2D)      ; 
+    (=ucs              . #x313D)       ; ㄽ
+    (=ks-x1001         . #x242D)       ; 
     ))
 (define-char
   '((name              . "HANGUL LETTER RIEUL-THIEUTH")
-    (ucs               . #x313E)
     (general-category  letter other) ; Informative Category
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   compat #x11B4)
-    (korean-ksc5601    #x24 #x2E)      ; 
+    (=ucs              . #x313E)       ; ㄾ
+    (=ks-x1001         . #x242E)       ; 
     ))
 (define-char
   '((name              . "HANGUL LETTER RIEUL-PHIEUPH")
-    (ucs               . #x313F)
     (general-category  letter other) ; Informative Category
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   compat #x11B5)
-    (korean-ksc5601    #x24 #x2F)      ; 
+    (=ucs              . #x313F)       ; ㄿ
+    (=ks-x1001         . #x242F)       ; 
     ))
 (define-char
   '((name              . "HANGUL LETTER RIEUL-HIEUH")
-    (ucs               . #x3140)
     (general-category  letter other) ; Informative Category
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   compat #x111A)
-    (korean-ksc5601    #x24 #x30)      ; 
+    (=ucs              . #x3140)       ; ㅀ
+    (=ks-x1001         . #x2430)       ; 
     ))
 (define-char
   '((name              . "HANGUL LETTER MIEUM")
-    (ucs               . #x3141)
     (general-category  letter other) ; Informative Category
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   compat #x1106)
-    (korean-ksc5601    #x24 #x31)      ; 
+    (=ucs              . #x3141)       ; ㅁ
+    (=ks-x1001         . #x2431)       ; 
     ))
 (define-char
   '((name              . "HANGUL LETTER PIEUP")
-    (ucs               . #x3142)
     (general-category  letter other) ; Informative Category
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   compat #x1107)
-    (korean-ksc5601    #x24 #x32)      ; 
+    (=ucs              . #x3142)       ; ㅂ
+    (=ks-x1001         . #x2432)       ; 
     ))
 (define-char
   '((name              . "HANGUL LETTER SSANGPIEUP")
-    (ucs               . #x3143)
     (general-category  letter other) ; Informative Category
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   compat #x1108)
-    (korean-ksc5601    #x24 #x33)      ; 
+    (=ucs              . #x3143)       ; ㅃ
+    (=ks-x1001         . #x2433)       ; 
     ))
 (define-char
   '((name              . "HANGUL LETTER PIEUP-SIOS")
-    (ucs               . #x3144)
     (general-category  letter other) ; Informative Category
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   compat #x1121)
-    (korean-ksc5601    #x24 #x34)      ; 
+    (=ucs              . #x3144)       ; ㅄ
+    (=ks-x1001         . #x2434)       ; 
     ))
 (define-char
   '((name              . "HANGUL LETTER SIOS")
-    (ucs               . #x3145)
     (general-category  letter other) ; Informative Category
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   compat #x1109)
-    (korean-ksc5601    #x24 #x35)      ; 
+    (=ucs              . #x3145)       ; ㅅ
+    (=ks-x1001         . #x2435)       ; 
     ))
 (define-char
   '((name              . "HANGUL LETTER SSANGSIOS")
-    (ucs               . #x3146)
     (general-category  letter other) ; Informative Category
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   compat #x110A)
-    (korean-ksc5601    #x24 #x36)      ; 
+    (=ucs              . #x3146)       ; ㅆ
+    (=ks-x1001         . #x2436)       ; 
     ))
 (define-char
   '((name              . "HANGUL LETTER IEUNG")
-    (ucs               . #x3147)
     (general-category  letter other) ; Informative Category
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   compat #x110B)
-    (korean-ksc5601    #x24 #x37)      ; 
+    (=ucs              . #x3147)       ; ㅇ
+    (=ks-x1001         . #x2437)       ; 
     ))
 (define-char
   '((name              . "HANGUL LETTER CIEUC")
-    (ucs               . #x3148)
     (general-category  letter other) ; Informative Category
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   compat #x110C)
-    (korean-ksc5601    #x24 #x38)      ; 
+    (=ucs              . #x3148)       ; ㅈ
+    (=ks-x1001         . #x2438)       ; 
     ))
 (define-char
   '((name              . "HANGUL LETTER SSANGCIEUC")
-    (ucs               . #x3149)
     (general-category  letter other) ; Informative Category
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   compat #x110D)
-    (korean-ksc5601    #x24 #x39)      ; 
+    (=ucs              . #x3149)       ; ㅉ
+    (=ks-x1001         . #x2439)       ; 
     ))
 (define-char
   '((name              . "HANGUL LETTER CHIEUCH")
-    (ucs               . #x314A)
     (general-category  letter other) ; Informative Category
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   compat #x110E)
-    (korean-ksc5601    #x24 #x3A)      ; 
+    (=ucs              . #x314A)       ; ㅊ
+    (=ks-x1001         . #x243A)       ; 
     ))
 (define-char
   '((name              . "HANGUL LETTER KHIEUKH")
-    (ucs               . #x314B)
     (general-category  letter other) ; Informative Category
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   compat #x110F)
-    (korean-ksc5601    #x24 #x3B)      ; 
+    (=ucs              . #x314B)       ; ㅋ
+    (=ks-x1001         . #x243B)       ; 
     ))
 (define-char
   '((name              . "HANGUL LETTER THIEUTH")
-    (ucs               . #x314C)
     (general-category  letter other) ; Informative Category
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   compat #x1110)
-    (korean-ksc5601    #x24 #x3C)      ; 
+    (=ucs              . #x314C)       ; ㅌ
+    (=ks-x1001         . #x243C)       ; 
     ))
 (define-char
   '((name              . "HANGUL LETTER PHIEUPH")
-    (ucs               . #x314D)
     (general-category  letter other) ; Informative Category
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   compat #x1111)
-    (korean-ksc5601    #x24 #x3D)      ; 
+    (=ucs              . #x314D)       ; ㅍ
+    (=ks-x1001         . #x243D)       ; 
     ))
 (define-char
   '((name              . "HANGUL LETTER HIEUH")
-    (ucs               . #x314E)
     (general-category  letter other) ; Informative Category
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   compat #x1112)
-    (korean-ksc5601    #x24 #x3E)      ; 
+    (=ucs              . #x314E)       ; ㅎ
+    (=ks-x1001         . #x243E)       ; 
     ))
 (define-char
   '((name              . "HANGUL LETTER A")
-    (ucs               . #x314F)
     (general-category  letter other) ; Informative Category
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   compat #x1161)
-    (korean-ksc5601    #x24 #x3F)      ; 
+    (=ucs              . #x314F)       ; ㅏ
+    (=ks-x1001         . #x243F)       ; 
     ))
 (define-char
   '((name              . "HANGUL LETTER AE")
-    (ucs               . #x3150)
     (general-category  letter other) ; Informative Category
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   compat #x1162)
-    (korean-ksc5601    #x24 #x40)      ; 
+    (=ucs              . #x3150)       ; ㅐ
+    (=ks-x1001         . #x2440)       ; 
     ))
 (define-char
   '((name              . "HANGUL LETTER YA")
-    (ucs               . #x3151)
     (general-category  letter other) ; Informative Category
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   compat #x1163)
-    (korean-ksc5601    #x24 #x41)      ; 
+    (=ucs              . #x3151)       ; ㅑ
+    (=ks-x1001         . #x2441)       ; 
     ))
 (define-char
   '((name              . "HANGUL LETTER YAE")
-    (ucs               . #x3152)
     (general-category  letter other) ; Informative Category
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   compat #x1164)
-    (korean-ksc5601    #x24 #x42)      ; 
+    (=ucs              . #x3152)       ; ㅒ
+    (=ks-x1001         . #x2442)       ; 
     ))
 (define-char
   '((name              . "HANGUL LETTER EO")
-    (ucs               . #x3153)
     (general-category  letter other) ; Informative Category
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   compat #x1165)
-    (korean-ksc5601    #x24 #x43)      ; 
+    (=ucs              . #x3153)       ; ㅓ
+    (=ks-x1001         . #x2443)       ; 
     ))
 (define-char
   '((name              . "HANGUL LETTER E")
-    (ucs               . #x3154)
     (general-category  letter other) ; Informative Category
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   compat #x1166)
-    (korean-ksc5601    #x24 #x44)      ; 
+    (=ucs              . #x3154)       ; ㅔ
+    (=ks-x1001         . #x2444)       ; 
     ))
 (define-char
   '((name              . "HANGUL LETTER YEO")
-    (ucs               . #x3155)
     (general-category  letter other) ; Informative Category
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   compat #x1167)
-    (korean-ksc5601    #x24 #x45)      ; 
+    (=ucs              . #x3155)       ; ㅕ
+    (=ks-x1001         . #x2445)       ; 
     ))
 (define-char
   '((name              . "HANGUL LETTER YE")
-    (ucs               . #x3156)
     (general-category  letter other) ; Informative Category
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   compat #x1168)
-    (korean-ksc5601    #x24 #x46)      ; 
+    (=ucs              . #x3156)       ; ㅖ
+    (=ks-x1001         . #x2446)       ; 
     ))
 (define-char
   '((name              . "HANGUL LETTER O")
-    (ucs               . #x3157)
     (general-category  letter other) ; Informative Category
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   compat #x1169)
-    (korean-ksc5601    #x24 #x47)      ; 
+    (=ucs              . #x3157)       ; ㅗ
+    (=ks-x1001         . #x2447)       ; 
     ))
 (define-char
   '((name              . "HANGUL LETTER WA")
-    (ucs               . #x3158)
     (general-category  letter other) ; Informative Category
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   compat #x116A)
-    (korean-ksc5601    #x24 #x48)      ; 
+    (=ucs              . #x3158)       ; ㅘ
+    (=ks-x1001         . #x2448)       ; 
     ))
 (define-char
   '((name              . "HANGUL LETTER WAE")
-    (ucs               . #x3159)
     (general-category  letter other) ; Informative Category
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   compat #x116B)
-    (korean-ksc5601    #x24 #x49)      ; 
+    (=ucs              . #x3159)       ; ㅙ
+    (=ks-x1001         . #x2449)       ; 
     ))
 (define-char
   '((name              . "HANGUL LETTER OE")
-    (ucs               . #x315A)
     (general-category  letter other) ; Informative Category
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   compat #x116C)
-    (korean-ksc5601    #x24 #x4A)      ; 
+    (=ucs              . #x315A)       ; ㅚ
+    (=ks-x1001         . #x244A)       ; 
     ))
 (define-char
   '((name              . "HANGUL LETTER YO")
-    (ucs               . #x315B)
     (general-category  letter other) ; Informative Category
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   compat #x116D)
-    (korean-ksc5601    #x24 #x4B)      ; 
+    (=ucs              . #x315B)       ; ㅛ
+    (=ks-x1001         . #x244B)       ; 
     ))
 (define-char
   '((name              . "HANGUL LETTER U")
-    (ucs               . #x315C)
     (general-category  letter other) ; Informative Category
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   compat #x116E)
-    (korean-ksc5601    #x24 #x4C)      ; 
+    (=ucs              . #x315C)       ; ㅜ
+    (=ks-x1001         . #x244C)       ; 
     ))
 (define-char
   '((name              . "HANGUL LETTER WEO")
-    (ucs               . #x315D)
     (general-category  letter other) ; Informative Category
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   compat #x116F)
-    (korean-ksc5601    #x24 #x4D)      ; 
+    (=ucs              . #x315D)       ; ㅝ
+    (=ks-x1001         . #x244D)       ; 
     ))
 (define-char
   '((name              . "HANGUL LETTER WE")
-    (ucs               . #x315E)
     (general-category  letter other) ; Informative Category
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   compat #x1170)
-    (korean-ksc5601    #x24 #x4E)      ; 
+    (=ucs              . #x315E)       ; ㅞ
+    (=ks-x1001         . #x244E)       ; 
     ))
 (define-char
   '((name              . "HANGUL LETTER WI")
-    (ucs               . #x315F)
     (general-category  letter other) ; Informative Category
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   compat #x1171)
-    (korean-ksc5601    #x24 #x4F)      ; 
+    (=ucs              . #x315F)       ; ㅟ
+    (=ks-x1001         . #x244F)       ; 
     ))
 (define-char
   '((name              . "HANGUL LETTER YU")
-    (ucs               . #x3160)
     (general-category  letter other) ; Informative Category
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   compat #x1172)
-    (korean-ksc5601    #x24 #x50)      ; 
+    (=ucs              . #x3160)       ; ㅠ
+    (=ks-x1001         . #x2450)       ; 
     ))
 (define-char
   '((name              . "HANGUL LETTER EU")
-    (ucs               . #x3161)
     (general-category  letter other) ; Informative Category
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   compat #x1173)
-    (korean-ksc5601    #x24 #x51)      ; 
+    (=ucs              . #x3161)       ; ㅡ
+    (=ks-x1001         . #x2451)       ; 
     ))
 (define-char
   '((name              . "HANGUL LETTER YI")
-    (ucs               . #x3162)
     (general-category  letter other) ; Informative Category
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   compat #x1174)
-    (korean-ksc5601    #x24 #x52)      ; 
+    (=ucs              . #x3162)       ; ㅢ
+    (=ks-x1001         . #x2452)       ; 
     ))
 (define-char
   '((name              . "HANGUL LETTER I")
-    (ucs               . #x3163)
     (general-category  letter other) ; Informative Category
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   compat #x1175)
-    (korean-ksc5601    #x24 #x53)      ; 
+    (=ucs              . #x3163)       ; ㅣ
+    (=ks-x1001         . #x2453)       ; 
     ))
 (define-char
   '((name              . "HANGUL FILLER")
-    (ucs               . #x3164)
     (general-category  letter other) ; Informative Category
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   compat #x1160)
-    (korean-ksc5601    #x24 #x54)      ; 
+    (=ucs              . #x3164)       ; ㅤ
+    (=ks-x1001         . #x2454)       ; 
     ))
 (define-char
   '((name              . "HANGUL LETTER SSANGNIEUN")
-    (ucs               . #x3165)
     (general-category  letter other) ; Informative Category
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   compat #x1114)
-    (korean-ksc5601    #x24 #x55)      ; 
+    (=ucs              . #x3165)       ; ㅥ
+    (=ks-x1001         . #x2455)       ; 
     ))
 (define-char
   '((name              . "HANGUL LETTER NIEUN-TIKEUT")
-    (ucs               . #x3166)
     (general-category  letter other) ; Informative Category
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   compat #x1115)
-    (korean-ksc5601    #x24 #x56)      ; 
+    (=ucs              . #x3166)       ; ㅦ
+    (=ks-x1001         . #x2456)       ; 
     ))
 (define-char
   '((name              . "HANGUL LETTER NIEUN-SIOS")
-    (ucs               . #x3167)
     (general-category  letter other) ; Informative Category
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   compat #x11C7)
-    (korean-ksc5601    #x24 #x57)      ; 
+    (=ucs              . #x3167)       ; ㅧ
+    (=ks-x1001         . #x2457)       ; 
     ))
 (define-char
   '((name              . "HANGUL LETTER NIEUN-PANSIOS")
-    (ucs               . #x3168)
     (general-category  letter other) ; Informative Category
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   compat #x11C8)
-    (korean-ksc5601    #x24 #x58)      ; 
+    (=ucs              . #x3168)       ; ㅨ
+    (=ks-x1001         . #x2458)       ; 
     ))
 (define-char
   '((name              . "HANGUL LETTER RIEUL-KIYEOK-SIOS")
-    (ucs               . #x3169)
     (general-category  letter other) ; Informative Category
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   compat #x11CC)
-    (korean-ksc5601    #x24 #x59)      ; 
+    (=ucs              . #x3169)       ; ㅩ
+    (=ks-x1001         . #x2459)       ; 
     ))
 (define-char
   '((name              . "HANGUL LETTER RIEUL-TIKEUT")
-    (ucs               . #x316A)
     (general-category  letter other) ; Informative Category
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   compat #x11CE)
-    (korean-ksc5601    #x24 #x5A)      ; 
+    (=ucs              . #x316A)       ; ㅪ
+    (=ks-x1001         . #x245A)       ; 
     ))
 (define-char
   '((name              . "HANGUL LETTER RIEUL-PIEUP-SIOS")
-    (ucs               . #x316B)
     (general-category  letter other) ; Informative Category
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   compat #x11D3)
-    (korean-ksc5601    #x24 #x5B)      ; 
+    (=ucs              . #x316B)       ; ㅫ
+    (=ks-x1001         . #x245B)       ; 
     ))
 (define-char
   '((name              . "HANGUL LETTER RIEUL-PANSIOS")
-    (ucs               . #x316C)
     (general-category  letter other) ; Informative Category
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   compat #x11D7)
-    (korean-ksc5601    #x24 #x5C)      ; 
+    (=ucs              . #x316C)       ; ㅬ
+    (=ks-x1001         . #x245C)       ; 
     ))
 (define-char
   '((name              . "HANGUL LETTER RIEUL-YEORINHIEUH")
-    (ucs               . #x316D)
     (general-category  letter other) ; Informative Category
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   compat #x11D9)
-    (korean-ksc5601    #x24 #x5D)      ; 
+    (=ucs              . #x316D)       ; ㅭ
+    (=ks-x1001         . #x245D)       ; 
     ))
 (define-char
   '((name              . "HANGUL LETTER MIEUM-PIEUP")
-    (ucs               . #x316E)
     (general-category  letter other) ; Informative Category
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   compat #x111C)
-    (korean-ksc5601    #x24 #x5E)      ; 
+    (=ucs              . #x316E)       ; ㅮ
+    (=ks-x1001         . #x245E)       ; 
     ))
 (define-char
   '((name              . "HANGUL LETTER MIEUM-SIOS")
-    (ucs               . #x316F)
     (general-category  letter other) ; Informative Category
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   compat #x11DD)
-    (korean-ksc5601    #x24 #x5F)      ; 
+    (=ucs              . #x316F)       ; ㅯ
+    (=ks-x1001         . #x245F)       ; 
     ))
 (define-char
   '((name              . "HANGUL LETTER MIEUM-PANSIOS")
-    (ucs               . #x3170)
     (general-category  letter other) ; Informative Category
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   compat #x11DF)
-    (korean-ksc5601    #x24 #x60)      ; 
+    (=ucs              . #x3170)       ; ㅰ
+    (=ks-x1001         . #x2460)       ; 
     ))
 (define-char
   '((name              . "HANGUL LETTER KAPYEOUNMIEUM")
-    (ucs               . #x3171)
     (general-category  letter other) ; Informative Category
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   compat #x111D)
-    (korean-ksc5601    #x24 #x61)      ; 
+    (=ucs              . #x3171)       ; ㅱ
+    (=ks-x1001         . #x2461)       ; 
     ))
 (define-char
   '((name              . "HANGUL LETTER PIEUP-KIYEOK")
-    (ucs               . #x3172)
     (general-category  letter other) ; Informative Category
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   compat #x111E)
-    (korean-ksc5601    #x24 #x62)      ; 
+    (=ucs              . #x3172)       ; ㅲ
+    (=ks-x1001         . #x2462)       ; 
     ))
 (define-char
   '((name              . "HANGUL LETTER PIEUP-TIKEUT")
-    (ucs               . #x3173)
     (general-category  letter other) ; Informative Category
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   compat #x1120)
-    (korean-ksc5601    #x24 #x63)      ; 
+    (=ucs              . #x3173)       ; ㅳ
+    (=ks-x1001         . #x2463)       ; 
     ))
 (define-char
   '((name              . "HANGUL LETTER PIEUP-SIOS-KIYEOK")
-    (ucs               . #x3174)
     (general-category  letter other) ; Informative Category
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   compat #x1122)
-    (korean-ksc5601    #x24 #x64)      ; 
+    (=ucs              . #x3174)       ; ㅴ
+    (=ks-x1001         . #x2464)       ; 
     ))
 (define-char
   '((name              . "HANGUL LETTER PIEUP-SIOS-TIKEUT")
-    (ucs               . #x3175)
     (general-category  letter other) ; Informative Category
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   compat #x1123)
-    (korean-ksc5601    #x24 #x65)      ; 
+    (=ucs              . #x3175)       ; ㅵ
+    (=ks-x1001         . #x2465)       ; 
     ))
 (define-char
   '((name              . "HANGUL LETTER PIEUP-CIEUC")
-    (ucs               . #x3176)
     (general-category  letter other) ; Informative Category
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   compat #x1127)
-    (korean-ksc5601    #x24 #x66)      ; 
+    (=ucs              . #x3176)       ; ㅶ
+    (=ks-x1001         . #x2466)       ; 
     ))
 (define-char
   '((name              . "HANGUL LETTER PIEUP-THIEUTH")
-    (ucs               . #x3177)
     (general-category  letter other) ; Informative Category
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   compat #x1129)
-    (korean-ksc5601    #x24 #x67)      ; 
+    (=ucs              . #x3177)       ; ㅷ
+    (=ks-x1001         . #x2467)       ; 
     ))
 (define-char
   '((name              . "HANGUL LETTER KAPYEOUNPIEUP")
-    (ucs               . #x3178)
     (general-category  letter other) ; Informative Category
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   compat #x112B)
-    (korean-ksc5601    #x24 #x68)      ; 
+    (=ucs              . #x3178)       ; ㅸ
+    (=ks-x1001         . #x2468)       ; 
     ))
 (define-char
   '((name              . "HANGUL LETTER KAPYEOUNSSANGPIEUP")
-    (ucs               . #x3179)
     (general-category  letter other) ; Informative Category
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   compat #x112C)
-    (korean-ksc5601    #x24 #x69)      ; 
+    (=ucs              . #x3179)       ; ㅹ
+    (=ks-x1001         . #x2469)       ; 
     ))
 (define-char
   '((name              . "HANGUL LETTER SIOS-KIYEOK")
-    (ucs               . #x317A)
     (general-category  letter other) ; Informative Category
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   compat #x112D)
-    (korean-ksc5601    #x24 #x6A)      ; 
+    (=ucs              . #x317A)       ; ㅺ
+    (=ks-x1001         . #x246A)       ; 
     ))
 (define-char
   '((name              . "HANGUL LETTER SIOS-NIEUN")
-    (ucs               . #x317B)
     (general-category  letter other) ; Informative Category
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   compat #x112E)
-    (korean-ksc5601    #x24 #x6B)      ; 
+    (=ucs              . #x317B)       ; ㅻ
+    (=ks-x1001         . #x246B)       ; 
     ))
 (define-char
   '((name              . "HANGUL LETTER SIOS-TIKEUT")
-    (ucs               . #x317C)
     (general-category  letter other) ; Informative Category
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   compat #x112F)
-    (korean-ksc5601    #x24 #x6C)      ; 
+    (=ucs              . #x317C)       ; ㅼ
+    (=ks-x1001         . #x246C)       ; 
     ))
 (define-char
   '((name              . "HANGUL LETTER SIOS-PIEUP")
-    (ucs               . #x317D)
     (general-category  letter other) ; Informative Category
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   compat #x1132)
-    (korean-ksc5601    #x24 #x6D)      ; 
+    (=ucs              . #x317D)       ; ㅽ
+    (=ks-x1001         . #x246D)       ; 
     ))
 (define-char
   '((name              . "HANGUL LETTER SIOS-CIEUC")
-    (ucs               . #x317E)
     (general-category  letter other) ; Informative Category
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   compat #x1136)
-    (korean-ksc5601    #x24 #x6E)      ; 
+    (=ucs              . #x317E)       ; ㅾ
+    (=ks-x1001         . #x246E)       ; 
     ))
 (define-char
   '((name              . "HANGUL LETTER PANSIOS")
-    (ucs               . #x317F)
     (general-category  letter other) ; Informative Category
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   compat #x1140)
-    (korean-ksc5601    #x24 #x6F)      ; 
+    (=ucs              . #x317F)       ; ㅿ
+    (=ks-x1001         . #x246F)       ; 
     ))
 (define-char
   '((name              . "HANGUL LETTER SSANGIEUNG")
-    (ucs               . #x3180)
     (general-category  letter other) ; Informative Category
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   compat #x1147)
-    (korean-ksc5601    #x24 #x70)      ; 
+    (=ucs              . #x3180)       ; ㆀ
+    (=ks-x1001         . #x2470)       ; 
     ))
 (define-char
   '((name              . "HANGUL LETTER YESIEUNG")
-    (ucs               . #x3181)
     (general-category  letter other) ; Informative Category
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   compat #x114C)
-    (korean-ksc5601    #x24 #x71)      ; 
+    (=ucs              . #x3181)       ; ㆁ
+    (=ks-x1001         . #x2471)       ; 
     ))
 (define-char
   '((name              . "HANGUL LETTER YESIEUNG-SIOS")
-    (ucs               . #x3182)
     (general-category  letter other) ; Informative Category
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   compat #x11F1)
-    (korean-ksc5601    #x24 #x72)      ; 
+    (=ucs              . #x3182)       ; ㆂ
+    (=ks-x1001         . #x2472)       ; 
     ))
 (define-char
   '((name              . "HANGUL LETTER YESIEUNG-PANSIOS")
-    (ucs               . #x3183)
     (general-category  letter other) ; Informative Category
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   compat #x11F2)
-    (korean-ksc5601    #x24 #x73)      ; 
+    (=ucs              . #x3183)       ; ㆃ
+    (=ks-x1001         . #x2473)       ; 
     ))
 (define-char
   '((name              . "HANGUL LETTER KAPYEOUNPHIEUPH")
-    (ucs               . #x3184)
     (general-category  letter other) ; Informative Category
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   compat #x1157)
-    (korean-ksc5601    #x24 #x74)      ; 
+    (=ucs              . #x3184)       ; ㆄ
+    (=ks-x1001         . #x2474)       ; 
     ))
 (define-char
   '((name              . "HANGUL LETTER SSANGHIEUH")
-    (ucs               . #x3185)
     (general-category  letter other) ; Informative Category
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   compat #x1158)
-    (korean-ksc5601    #x24 #x75)      ; 
+    (=ucs              . #x3185)       ; ㆅ
+    (=ks-x1001         . #x2475)       ; 
     ))
 (define-char
   '((name              . "HANGUL LETTER YEORINHIEUH")
-    (ucs               . #x3186)
     (general-category  letter other) ; Informative Category
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   compat #x1159)
-    (korean-ksc5601    #x24 #x76)      ; 
+    (=ucs              . #x3186)       ; ㆆ
+    (=ks-x1001         . #x2476)       ; 
     ))
 (define-char
   '((name              . "HANGUL LETTER YO-YA")
-    (ucs               . #x3187)
     (general-category  letter other) ; Informative Category
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   compat #x1184)
-    (korean-ksc5601    #x24 #x77)      ; 
+    (=ucs              . #x3187)       ; ㆇ
+    (=ks-x1001         . #x2477)       ; 
     ))
 (define-char
   '((name              . "HANGUL LETTER YO-YAE")
-    (ucs               . #x3188)
     (general-category  letter other) ; Informative Category
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   compat #x1185)
-    (korean-ksc5601    #x24 #x78)      ; 
+    (=ucs              . #x3188)       ; ㆈ
+    (=ks-x1001         . #x2478)       ; 
     ))
 (define-char
   '((name              . "HANGUL LETTER YO-I")
-    (ucs               . #x3189)
     (general-category  letter other) ; Informative Category
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   compat #x1188)
-    (korean-ksc5601    #x24 #x79)      ; 
+    (=ucs              . #x3189)       ; ㆉ
+    (=ks-x1001         . #x2479)       ; 
     ))
 (define-char
   '((name              . "HANGUL LETTER YU-YEO")
-    (ucs               . #x318A)
     (general-category  letter other) ; Informative Category
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   compat #x1191)
-    (korean-ksc5601    #x24 #x7A)      ; 
+    (=ucs              . #x318A)       ; ㆊ
+    (=ks-x1001         . #x247A)       ; 
     ))
 (define-char
   '((name              . "HANGUL LETTER YU-YE")
-    (ucs               . #x318B)
     (general-category  letter other) ; Informative Category
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   compat #x1192)
-    (korean-ksc5601    #x24 #x7B)      ; 
+    (=ucs              . #x318B)       ; ㆋ
+    (=ks-x1001         . #x247B)       ; 
     ))
 (define-char
   '((name              . "HANGUL LETTER YU-I")
-    (ucs               . #x318C)
     (general-category  letter other) ; Informative Category
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   compat #x1194)
-    (korean-ksc5601    #x24 #x7C)      ; 
+    (=ucs              . #x318C)       ; ㆌ
+    (=ks-x1001         . #x247C)       ; 
     ))
 (define-char
   '((name              . "HANGUL LETTER ARAEA")
-    (ucs               . #x318D)
     (general-category  letter other) ; Informative Category
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   compat #x119E)
-    (korean-ksc5601    #x24 #x7D)      ; 
+    (=ucs              . #x318D)       ; ㆍ
+    (=ks-x1001         . #x247D)       ; 
     ))
 (define-char
   '((name              . "HANGUL LETTER ARAEAE")
-    (ucs               . #x318E)
     (general-category  letter other) ; Informative Category
     (bidi-category     . "L")
     (mirrored          . nil)
     (->decomposition   compat #x11A1)
-    (korean-ksc5601    #x24 #x7E)      ; 
+    (=ucs              . #x318E)       ; ㆎ
+    (=ks-x1001         . #x247E)       ; 
     ))