X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=lisp%2Futf-2000%2Fu03130-Hangul-Compatibility-Jamo.el;h=569aa4947232ecc7534f906e1887afdb432980ac;hb=767a4d3c6cc84c530d28f5fa02f51c23ccd29f4e;hp=c5ac10186dd0268cf64595d0a3d787476d5f1df5;hpb=e7783ccc5c7b4545f4afab9e1748b38e17aff09c;p=chise%2Fxemacs-chise.git.1

diff --git a/lisp/utf-2000/u03130-Hangul-Compatibility-Jamo.el b/lisp/utf-2000/u03130-Hangul-Compatibility-Jamo.el
index c5ac101..569aa49 100644
--- a/lisp/utf-2000/u03130-Hangul-Compatibility-Jamo.el
+++ b/lisp/utf-2000/u03130-Hangul-Compatibility-Jamo.el
@@ -4,844 +4,1126 @@
     (general-category	letter other) ; Informative Category
     (bidi-category	. "L")
     (mirrored		. nil)
-    (->decomposition	compat #x1100)
     (=ucs		. #x3131)	; ㄱ
-    (=ks-x1001		. #x2421)	; &I-K0-2421;
+    (=ks-x1001		. #x2421)	; &I-K0-2421; [04-01]
+    (<-compat
+     ((name		  . "HANGUL CHOSEONG KIYEOK")
+      (=ucs		  . #x1100)	; ᄀ
+      ))
     ))
 (define-char
   '((name		. "HANGUL LETTER SSANGKIYEOK")
     (general-category	letter other) ; Informative Category
     (bidi-category	. "L")
     (mirrored		. nil)
-    (->decomposition	compat #x1101)
     (=ucs		. #x3132)	; ㄲ
-    (=ks-x1001		. #x2422)	; &I-K0-2422;
+    (=ks-x1001		. #x2422)	; &I-K0-2422; [04-02]
+    (<-compat
+     ((name		  . "HANGUL CHOSEONG SSANGKIYEOK")
+      (=ucs		  . #x1101)	; ᄁ
+      ))
     ))
 (define-char
   '((name		. "HANGUL LETTER KIYEOK-SIOS")
     (general-category	letter other) ; Informative Category
     (bidi-category	. "L")
     (mirrored		. nil)
-    (->decomposition	compat #x11AA)
     (=ucs		. #x3133)	; ㄳ
-    (=ks-x1001		. #x2423)	; &I-K0-2423;
+    (=ks-x1001		. #x2423)	; &I-K0-2423; [04-03]
+    (<-compat
+     ((name		  . "HANGUL JONGSEONG KIYEOK-SIOS")
+      (=ucs		  . #x11AA)	; ᆪ
+      ))
     ))
 (define-char
   '((name		. "HANGUL LETTER NIEUN")
     (general-category	letter other) ; Informative Category
     (bidi-category	. "L")
     (mirrored		. nil)
-    (->decomposition	compat #x1102)
     (=ucs		. #x3134)	; ㄴ
-    (=ks-x1001		. #x2424)	; &I-K0-2424;
+    (=ks-x1001		. #x2424)	; &I-K0-2424; [04-04]
+    (<-compat
+     ((name		  . "HANGUL CHOSEONG NIEUN")
+      (=ucs		  . #x1102)	; ᄂ
+      ))
     ))
 (define-char
   '((name		. "HANGUL LETTER NIEUN-CIEUC")
     (general-category	letter other) ; Informative Category
     (bidi-category	. "L")
     (mirrored		. nil)
-    (->decomposition	compat #x11AC)
     (=ucs		. #x3135)	; ㄵ
-    (=ks-x1001		. #x2425)	; &I-K0-2425;
+    (=ks-x1001		. #x2425)	; &I-K0-2425; [04-05]
+    (<-compat
+     ((name		  . "HANGUL JONGSEONG NIEUN-CIEUC")
+      (=ucs		  . #x11AC)	; ᆬ
+      ))
     ))
 (define-char
   '((name		. "HANGUL LETTER NIEUN-HIEUH")
     (general-category	letter other) ; Informative Category
     (bidi-category	. "L")
     (mirrored		. nil)
-    (->decomposition	compat #x11AD)
     (=ucs		. #x3136)	; ㄶ
-    (=ks-x1001		. #x2426)	; &I-K0-2426;
+    (=ks-x1001		. #x2426)	; &I-K0-2426; [04-06]
+    (<-compat
+     ((name		  . "HANGUL JONGSEONG NIEUN-HIEUH")
+      (=ucs		  . #x11AD)	; ᆭ
+      ))
     ))
 (define-char
   '((name		. "HANGUL LETTER TIKEUT")
     (general-category	letter other) ; Informative Category
     (bidi-category	. "L")
     (mirrored		. nil)
-    (->decomposition	compat #x1103)
     (=ucs		. #x3137)	; ㄷ
-    (=ks-x1001		. #x2427)	; &I-K0-2427;
+    (=ks-x1001		. #x2427)	; &I-K0-2427; [04-07]
+    (<-compat
+     ((name		  . "HANGUL CHOSEONG TIKEUT")
+      (=ucs		  . #x1103)	; ᄃ
+      ))
     ))
 (define-char
   '((name		. "HANGUL LETTER SSANGTIKEUT")
     (general-category	letter other) ; Informative Category
     (bidi-category	. "L")
     (mirrored		. nil)
-    (->decomposition	compat #x1104)
     (=ucs		. #x3138)	; ㄸ
-    (=ks-x1001		. #x2428)	; &I-K0-2428;
+    (=ks-x1001		. #x2428)	; &I-K0-2428; [04-08]
+    (<-compat
+     ((name		  . "HANGUL CHOSEONG SSANGTIKEUT")
+      (=ucs		  . #x1104)	; ᄄ
+      ))
     ))
 (define-char
   '((name		. "HANGUL LETTER RIEUL")
     (general-category	letter other) ; Informative Category
     (bidi-category	. "L")
     (mirrored		. nil)
-    (->decomposition	compat #x1105)
     (=ucs		. #x3139)	; ㄹ
-    (=ks-x1001		. #x2429)	; &I-K0-2429;
+    (=ks-x1001		. #x2429)	; &I-K0-2429; [04-09]
+    (<-compat
+     ((name		  . "HANGUL CHOSEONG RIEUL")
+      (=ucs		  . #x1105)	; ᄅ
+      ))
     ))
 (define-char
   '((name		. "HANGUL LETTER RIEUL-KIYEOK")
     (general-category	letter other) ; Informative Category
     (bidi-category	. "L")
     (mirrored		. nil)
-    (->decomposition	compat #x11B0)
     (=ucs		. #x313A)	; ㄺ
-    (=ks-x1001		. #x242A)	; &I-K0-242A;
+    (=ks-x1001		. #x242A)	; &I-K0-242A; [04-10]
+    (<-compat
+     ((name		  . "HANGUL JONGSEONG RIEUL-KIYEOK")
+      (=ucs		  . #x11B0)	; ᆰ
+      ))
     ))
 (define-char
   '((name		. "HANGUL LETTER RIEUL-MIEUM")
     (general-category	letter other) ; Informative Category
     (bidi-category	. "L")
     (mirrored		. nil)
-    (->decomposition	compat #x11B1)
     (=ucs		. #x313B)	; ㄻ
-    (=ks-x1001		. #x242B)	; &I-K0-242B;
+    (=ks-x1001		. #x242B)	; &I-K0-242B; [04-11]
+    (<-compat
+     ((name		  . "HANGUL JONGSEONG RIEUL-MIEUM")
+      (=ucs		  . #x11B1)	; ᆱ
+      ))
     ))
 (define-char
   '((name		. "HANGUL LETTER RIEUL-PIEUP")
     (general-category	letter other) ; Informative Category
     (bidi-category	. "L")
     (mirrored		. nil)
-    (->decomposition	compat #x11B2)
     (=ucs		. #x313C)	; ㄼ
-    (=ks-x1001		. #x242C)	; &I-K0-242C;
+    (=ks-x1001		. #x242C)	; &I-K0-242C; [04-12]
+    (<-compat
+     ((name		  . "HANGUL JONGSEONG RIEUL-PIEUP")
+      (=ucs		  . #x11B2)	; ᆲ
+      ))
     ))
 (define-char
   '((name		. "HANGUL LETTER RIEUL-SIOS")
     (general-category	letter other) ; Informative Category
     (bidi-category	. "L")
     (mirrored		. nil)
-    (->decomposition	compat #x11B3)
     (=ucs		. #x313D)	; ㄽ
-    (=ks-x1001		. #x242D)	; &I-K0-242D;
+    (=ks-x1001		. #x242D)	; &I-K0-242D; [04-13]
+    (<-compat
+     ((name		  . "HANGUL JONGSEONG RIEUL-SIOS")
+      (=ucs		  . #x11B3)	; ᆳ
+      ))
     ))
 (define-char
   '((name		. "HANGUL LETTER RIEUL-THIEUTH")
     (general-category	letter other) ; Informative Category
     (bidi-category	. "L")
     (mirrored		. nil)
-    (->decomposition	compat #x11B4)
     (=ucs		. #x313E)	; ㄾ
-    (=ks-x1001		. #x242E)	; &I-K0-242E;
+    (=ks-x1001		. #x242E)	; &I-K0-242E; [04-14]
+    (<-compat
+     ((name		  . "HANGUL JONGSEONG RIEUL-THIEUTH")
+      (=ucs		  . #x11B4)	; ᆴ
+      ))
     ))
 (define-char
   '((name		. "HANGUL LETTER RIEUL-PHIEUPH")
     (general-category	letter other) ; Informative Category
     (bidi-category	. "L")
     (mirrored		. nil)
-    (->decomposition	compat #x11B5)
     (=ucs		. #x313F)	; ㄿ
-    (=ks-x1001		. #x242F)	; &I-K0-242F;
+    (=ks-x1001		. #x242F)	; &I-K0-242F; [04-15]
+    (<-compat
+     ((name		  . "HANGUL JONGSEONG RIEUL-PHIEUPH")
+      (=ucs		  . #x11B5)	; ᆵ
+      ))
     ))
 (define-char
   '((name		. "HANGUL LETTER RIEUL-HIEUH")
     (general-category	letter other) ; Informative Category
     (bidi-category	. "L")
     (mirrored		. nil)
-    (->decomposition	compat #x111A)
     (=ucs		. #x3140)	; ㅀ
-    (=ks-x1001		. #x2430)	; &I-K0-2430;
+    (=ks-x1001		. #x2430)	; &I-K0-2430; [04-16]
+    (<-compat
+     ((name		  . "HANGUL CHOSEONG RIEUL-HIEUH")
+      (=ucs		  . #x111A)	; ᄚ
+      ))
     ))
 (define-char
   '((name		. "HANGUL LETTER MIEUM")
     (general-category	letter other) ; Informative Category
     (bidi-category	. "L")
     (mirrored		. nil)
-    (->decomposition	compat #x1106)
     (=ucs		. #x3141)	; ㅁ
-    (=ks-x1001		. #x2431)	; &I-K0-2431;
+    (=ks-x1001		. #x2431)	; &I-K0-2431; [04-17]
+    (<-compat
+     ((name		  . "HANGUL CHOSEONG MIEUM")
+      (=ucs		  . #x1106)	; ᄆ
+      ))
     ))
 (define-char
   '((name		. "HANGUL LETTER PIEUP")
     (general-category	letter other) ; Informative Category
     (bidi-category	. "L")
     (mirrored		. nil)
-    (->decomposition	compat #x1107)
     (=ucs		. #x3142)	; ㅂ
-    (=ks-x1001		. #x2432)	; &I-K0-2432;
+    (=ks-x1001		. #x2432)	; &I-K0-2432; [04-18]
+    (<-compat
+     ((name		  . "HANGUL CHOSEONG PIEUP")
+      (=ucs		  . #x1107)	; ᄇ
+      ))
     ))
 (define-char
   '((name		. "HANGUL LETTER SSANGPIEUP")
     (general-category	letter other) ; Informative Category
     (bidi-category	. "L")
     (mirrored		. nil)
-    (->decomposition	compat #x1108)
     (=ucs		. #x3143)	; ㅃ
-    (=ks-x1001		. #x2433)	; &I-K0-2433;
+    (=ks-x1001		. #x2433)	; &I-K0-2433; [04-19]
+    (<-compat
+     ((name		  . "HANGUL CHOSEONG SSANGPIEUP")
+      (=ucs		  . #x1108)	; ᄈ
+      ))
     ))
 (define-char
   '((name		. "HANGUL LETTER PIEUP-SIOS")
     (general-category	letter other) ; Informative Category
     (bidi-category	. "L")
     (mirrored		. nil)
-    (->decomposition	compat #x1121)
     (=ucs		. #x3144)	; ㅄ
-    (=ks-x1001		. #x2434)	; &I-K0-2434;
+    (=ks-x1001		. #x2434)	; &I-K0-2434; [04-20]
+    (<-compat
+     ((name		  . "HANGUL CHOSEONG PIEUP-SIOS")
+      (=ucs		  . #x1121)	; ᄡ
+      ))
     ))
 (define-char
   '((name		. "HANGUL LETTER SIOS")
     (general-category	letter other) ; Informative Category
     (bidi-category	. "L")
     (mirrored		. nil)
-    (->decomposition	compat #x1109)
     (=ucs		. #x3145)	; ㅅ
-    (=ks-x1001		. #x2435)	; &I-K0-2435;
+    (=ks-x1001		. #x2435)	; &I-K0-2435; [04-21]
+    (<-compat
+     ((name		  . "HANGUL CHOSEONG SIOS")
+      (=ucs		  . #x1109)	; ᄉ
+      ))
     ))
 (define-char
   '((name		. "HANGUL LETTER SSANGSIOS")
     (general-category	letter other) ; Informative Category
     (bidi-category	. "L")
     (mirrored		. nil)
-    (->decomposition	compat #x110A)
     (=ucs		. #x3146)	; ㅆ
-    (=ks-x1001		. #x2436)	; &I-K0-2436;
+    (=ks-x1001		. #x2436)	; &I-K0-2436; [04-22]
+    (<-compat
+     ((name		  . "HANGUL CHOSEONG SSANGSIOS")
+      (=ucs		  . #x110A)	; ᄊ
+      ))
     ))
 (define-char
   '((name		. "HANGUL LETTER IEUNG")
     (general-category	letter other) ; Informative Category
     (bidi-category	. "L")
     (mirrored		. nil)
-    (->decomposition	compat #x110B)
     (=ucs		. #x3147)	; ㅇ
-    (=ks-x1001		. #x2437)	; &I-K0-2437;
+    (=ks-x1001		. #x2437)	; &I-K0-2437; [04-23]
+    (<-compat
+     ((name		  . "HANGUL CHOSEONG IEUNG")
+      (=ucs		  . #x110B)	; ᄋ
+      ))
     ))
 (define-char
   '((name		. "HANGUL LETTER CIEUC")
     (general-category	letter other) ; Informative Category
     (bidi-category	. "L")
     (mirrored		. nil)
-    (->decomposition	compat #x110C)
     (=ucs		. #x3148)	; ㅈ
-    (=ks-x1001		. #x2438)	; &I-K0-2438;
+    (=ks-x1001		. #x2438)	; &I-K0-2438; [04-24]
+    (<-compat
+     ((name		  . "HANGUL CHOSEONG CIEUC")
+      (=ucs		  . #x110C)	; ᄌ
+      ))
     ))
 (define-char
   '((name		. "HANGUL LETTER SSANGCIEUC")
     (general-category	letter other) ; Informative Category
     (bidi-category	. "L")
     (mirrored		. nil)
-    (->decomposition	compat #x110D)
     (=ucs		. #x3149)	; ㅉ
-    (=ks-x1001		. #x2439)	; &I-K0-2439;
+    (=ks-x1001		. #x2439)	; &I-K0-2439; [04-25]
+    (<-compat
+     ((name		  . "HANGUL CHOSEONG SSANGCIEUC")
+      (=ucs		  . #x110D)	; ᄍ
+      ))
     ))
 (define-char
   '((name		. "HANGUL LETTER CHIEUCH")
     (general-category	letter other) ; Informative Category
     (bidi-category	. "L")
     (mirrored		. nil)
-    (->decomposition	compat #x110E)
     (=ucs		. #x314A)	; ㅊ
-    (=ks-x1001		. #x243A)	; &I-K0-243A;
+    (=ks-x1001		. #x243A)	; &I-K0-243A; [04-26]
+    (<-compat
+     ((name		  . "HANGUL CHOSEONG CHIEUCH")
+      (=ucs		  . #x110E)	; ᄎ
+      ))
     ))
 (define-char
   '((name		. "HANGUL LETTER KHIEUKH")
     (general-category	letter other) ; Informative Category
     (bidi-category	. "L")
     (mirrored		. nil)
-    (->decomposition	compat #x110F)
     (=ucs		. #x314B)	; ㅋ
-    (=ks-x1001		. #x243B)	; &I-K0-243B;
+    (=ks-x1001		. #x243B)	; &I-K0-243B; [04-27]
+    (<-compat
+     ((name		  . "HANGUL CHOSEONG KHIEUKH")
+      (=ucs		  . #x110F)	; ᄏ
+      ))
     ))
 (define-char
   '((name		. "HANGUL LETTER THIEUTH")
     (general-category	letter other) ; Informative Category
     (bidi-category	. "L")
     (mirrored		. nil)
-    (->decomposition	compat #x1110)
     (=ucs		. #x314C)	; ㅌ
-    (=ks-x1001		. #x243C)	; &I-K0-243C;
+    (=ks-x1001		. #x243C)	; &I-K0-243C; [04-28]
+    (<-compat
+     ((name		  . "HANGUL CHOSEONG THIEUTH")
+      (=ucs		  . #x1110)	; ᄐ
+      ))
     ))
 (define-char
   '((name		. "HANGUL LETTER PHIEUPH")
     (general-category	letter other) ; Informative Category
     (bidi-category	. "L")
     (mirrored		. nil)
-    (->decomposition	compat #x1111)
     (=ucs		. #x314D)	; ㅍ
-    (=ks-x1001		. #x243D)	; &I-K0-243D;
+    (=ks-x1001		. #x243D)	; &I-K0-243D; [04-29]
+    (<-compat
+     ((name		  . "HANGUL CHOSEONG PHIEUPH")
+      (=ucs		  . #x1111)	; ᄑ
+      ))
     ))
 (define-char
   '((name		. "HANGUL LETTER HIEUH")
     (general-category	letter other) ; Informative Category
     (bidi-category	. "L")
     (mirrored		. nil)
-    (->decomposition	compat #x1112)
     (=ucs		. #x314E)	; ㅎ
-    (=ks-x1001		. #x243E)	; &I-K0-243E;
+    (=ks-x1001		. #x243E)	; &I-K0-243E; [04-30]
+    (<-compat
+     ((name		  . "HANGUL CHOSEONG HIEUH")
+      (=ucs		  . #x1112)	; ᄒ
+      ))
     ))
 (define-char
   '((name		. "HANGUL LETTER A")
     (general-category	letter other) ; Informative Category
     (bidi-category	. "L")
     (mirrored		. nil)
-    (->decomposition	compat #x1161)
     (=ucs		. #x314F)	; ㅏ
-    (=ks-x1001		. #x243F)	; &I-K0-243F;
+    (=ks-x1001		. #x243F)	; &I-K0-243F; [04-31]
+    (<-compat
+     ((name		  . "HANGUL JUNGSEONG A")
+      (=ucs		  . #x1161)	; ᅡ
+      ))
     ))
 (define-char
   '((name		. "HANGUL LETTER AE")
     (general-category	letter other) ; Informative Category
     (bidi-category	. "L")
     (mirrored		. nil)
-    (->decomposition	compat #x1162)
     (=ucs		. #x3150)	; ㅐ
-    (=ks-x1001		. #x2440)	; &I-K0-2440;
+    (=ks-x1001		. #x2440)	; &I-K0-2440; [04-32]
+    (<-compat
+     ((name		  . "HANGUL JUNGSEONG AE")
+      (=ucs		  . #x1162)	; ᅢ
+      ))
     ))
 (define-char
   '((name		. "HANGUL LETTER YA")
     (general-category	letter other) ; Informative Category
     (bidi-category	. "L")
     (mirrored		. nil)
-    (->decomposition	compat #x1163)
     (=ucs		. #x3151)	; ㅑ
-    (=ks-x1001		. #x2441)	; &I-K0-2441;
+    (=ks-x1001		. #x2441)	; &I-K0-2441; [04-33]
+    (<-compat
+     ((name		  . "HANGUL JUNGSEONG YA")
+      (=ucs		  . #x1163)	; ᅣ
+      ))
     ))
 (define-char
   '((name		. "HANGUL LETTER YAE")
     (general-category	letter other) ; Informative Category
     (bidi-category	. "L")
     (mirrored		. nil)
-    (->decomposition	compat #x1164)
     (=ucs		. #x3152)	; ㅒ
-    (=ks-x1001		. #x2442)	; &I-K0-2442;
+    (=ks-x1001		. #x2442)	; &I-K0-2442; [04-34]
+    (<-compat
+     ((name		  . "HANGUL JUNGSEONG YAE")
+      (=ucs		  . #x1164)	; ᅤ
+      ))
     ))
 (define-char
   '((name		. "HANGUL LETTER EO")
     (general-category	letter other) ; Informative Category
     (bidi-category	. "L")
     (mirrored		. nil)
-    (->decomposition	compat #x1165)
     (=ucs		. #x3153)	; ㅓ
-    (=ks-x1001		. #x2443)	; &I-K0-2443;
+    (=ks-x1001		. #x2443)	; &I-K0-2443; [04-35]
+    (<-compat
+     ((name		  . "HANGUL JUNGSEONG EO")
+      (=ucs		  . #x1165)	; ᅥ
+      ))
     ))
 (define-char
   '((name		. "HANGUL LETTER E")
     (general-category	letter other) ; Informative Category
     (bidi-category	. "L")
     (mirrored		. nil)
-    (->decomposition	compat #x1166)
     (=ucs		. #x3154)	; ㅔ
-    (=ks-x1001		. #x2444)	; &I-K0-2444;
+    (=ks-x1001		. #x2444)	; &I-K0-2444; [04-36]
+    (<-compat
+     ((name		  . "HANGUL JUNGSEONG E")
+      (=ucs		  . #x1166)	; ᅦ
+      ))
     ))
 (define-char
   '((name		. "HANGUL LETTER YEO")
     (general-category	letter other) ; Informative Category
     (bidi-category	. "L")
     (mirrored		. nil)
-    (->decomposition	compat #x1167)
     (=ucs		. #x3155)	; ㅕ
-    (=ks-x1001		. #x2445)	; &I-K0-2445;
+    (=ks-x1001		. #x2445)	; &I-K0-2445; [04-37]
+    (<-compat
+     ((name		  . "HANGUL JUNGSEONG YEO")
+      (=ucs		  . #x1167)	; ᅧ
+      ))
     ))
 (define-char
   '((name		. "HANGUL LETTER YE")
     (general-category	letter other) ; Informative Category
     (bidi-category	. "L")
     (mirrored		. nil)
-    (->decomposition	compat #x1168)
     (=ucs		. #x3156)	; ㅖ
-    (=ks-x1001		. #x2446)	; &I-K0-2446;
+    (=ks-x1001		. #x2446)	; &I-K0-2446; [04-38]
+    (<-compat
+     ((name		  . "HANGUL JUNGSEONG YE")
+      (=ucs		  . #x1168)	; ᅨ
+      ))
     ))
 (define-char
   '((name		. "HANGUL LETTER O")
     (general-category	letter other) ; Informative Category
     (bidi-category	. "L")
     (mirrored		. nil)
-    (->decomposition	compat #x1169)
     (=ucs		. #x3157)	; ㅗ
-    (=ks-x1001		. #x2447)	; &I-K0-2447;
+    (=ks-x1001		. #x2447)	; &I-K0-2447; [04-39]
+    (<-compat
+     ((name		  . "HANGUL JUNGSEONG O")
+      (=ucs		  . #x1169)	; ᅩ
+      ))
     ))
 (define-char
   '((name		. "HANGUL LETTER WA")
     (general-category	letter other) ; Informative Category
     (bidi-category	. "L")
     (mirrored		. nil)
-    (->decomposition	compat #x116A)
     (=ucs		. #x3158)	; ㅘ
-    (=ks-x1001		. #x2448)	; &I-K0-2448;
+    (=ks-x1001		. #x2448)	; &I-K0-2448; [04-40]
+    (<-compat
+     ((name		  . "HANGUL JUNGSEONG WA")
+      (=ucs		  . #x116A)	; ᅪ
+      ))
     ))
 (define-char
   '((name		. "HANGUL LETTER WAE")
     (general-category	letter other) ; Informative Category
     (bidi-category	. "L")
     (mirrored		. nil)
-    (->decomposition	compat #x116B)
     (=ucs		. #x3159)	; ㅙ
-    (=ks-x1001		. #x2449)	; &I-K0-2449;
+    (=ks-x1001		. #x2449)	; &I-K0-2449; [04-41]
+    (<-compat
+     ((name		  . "HANGUL JUNGSEONG WAE")
+      (=ucs		  . #x116B)	; ᅫ
+      ))
     ))
 (define-char
   '((name		. "HANGUL LETTER OE")
     (general-category	letter other) ; Informative Category
     (bidi-category	. "L")
     (mirrored		. nil)
-    (->decomposition	compat #x116C)
     (=ucs		. #x315A)	; ㅚ
-    (=ks-x1001		. #x244A)	; &I-K0-244A;
+    (=ks-x1001		. #x244A)	; &I-K0-244A; [04-42]
+    (<-compat
+     ((name		  . "HANGUL JUNGSEONG OE")
+      (=ucs		  . #x116C)	; ᅬ
+      ))
     ))
 (define-char
   '((name		. "HANGUL LETTER YO")
     (general-category	letter other) ; Informative Category
     (bidi-category	. "L")
     (mirrored		. nil)
-    (->decomposition	compat #x116D)
     (=ucs		. #x315B)	; ㅛ
-    (=ks-x1001		. #x244B)	; &I-K0-244B;
+    (=ks-x1001		. #x244B)	; &I-K0-244B; [04-43]
+    (<-compat
+     ((name		  . "HANGUL JUNGSEONG YO")
+      (=ucs		  . #x116D)	; ᅭ
+      ))
     ))
 (define-char
   '((name		. "HANGUL LETTER U")
     (general-category	letter other) ; Informative Category
     (bidi-category	. "L")
     (mirrored		. nil)
-    (->decomposition	compat #x116E)
     (=ucs		. #x315C)	; ㅜ
-    (=ks-x1001		. #x244C)	; &I-K0-244C;
+    (=ks-x1001		. #x244C)	; &I-K0-244C; [04-44]
+    (<-compat
+     ((name		  . "HANGUL JUNGSEONG U")
+      (=ucs		  . #x116E)	; ᅮ
+      ))
     ))
 (define-char
   '((name		. "HANGUL LETTER WEO")
     (general-category	letter other) ; Informative Category
     (bidi-category	. "L")
     (mirrored		. nil)
-    (->decomposition	compat #x116F)
     (=ucs		. #x315D)	; ㅝ
-    (=ks-x1001		. #x244D)	; &I-K0-244D;
+    (=ks-x1001		. #x244D)	; &I-K0-244D; [04-45]
+    (<-compat
+     ((name		  . "HANGUL JUNGSEONG WEO")
+      (=ucs		  . #x116F)	; ᅯ
+      ))
     ))
 (define-char
   '((name		. "HANGUL LETTER WE")
     (general-category	letter other) ; Informative Category
     (bidi-category	. "L")
     (mirrored		. nil)
-    (->decomposition	compat #x1170)
     (=ucs		. #x315E)	; ㅞ
-    (=ks-x1001		. #x244E)	; &I-K0-244E;
+    (=ks-x1001		. #x244E)	; &I-K0-244E; [04-46]
+    (<-compat
+     ((name		  . "HANGUL JUNGSEONG WE")
+      (=ucs		  . #x1170)	; ᅰ
+      ))
     ))
 (define-char
   '((name		. "HANGUL LETTER WI")
     (general-category	letter other) ; Informative Category
     (bidi-category	. "L")
     (mirrored		. nil)
-    (->decomposition	compat #x1171)
     (=ucs		. #x315F)	; ㅟ
-    (=ks-x1001		. #x244F)	; &I-K0-244F;
+    (=ks-x1001		. #x244F)	; &I-K0-244F; [04-47]
+    (<-compat
+     ((name		  . "HANGUL JUNGSEONG WI")
+      (=ucs		  . #x1171)	; ᅱ
+      ))
     ))
 (define-char
   '((name		. "HANGUL LETTER YU")
     (general-category	letter other) ; Informative Category
     (bidi-category	. "L")
     (mirrored		. nil)
-    (->decomposition	compat #x1172)
     (=ucs		. #x3160)	; ㅠ
-    (=ks-x1001		. #x2450)	; &I-K0-2450;
+    (=ks-x1001		. #x2450)	; &I-K0-2450; [04-48]
+    (<-compat
+     ((name		  . "HANGUL JUNGSEONG YU")
+      (=ucs		  . #x1172)	; ᅲ
+      ))
     ))
 (define-char
   '((name		. "HANGUL LETTER EU")
     (general-category	letter other) ; Informative Category
     (bidi-category	. "L")
     (mirrored		. nil)
-    (->decomposition	compat #x1173)
     (=ucs		. #x3161)	; ㅡ
-    (=ks-x1001		. #x2451)	; &I-K0-2451;
+    (=ks-x1001		. #x2451)	; &I-K0-2451; [04-49]
+    (<-compat
+     ((name		  . "HANGUL JUNGSEONG EU")
+      (=ucs		  . #x1173)	; ᅳ
+      ))
     ))
 (define-char
   '((name		. "HANGUL LETTER YI")
     (general-category	letter other) ; Informative Category
     (bidi-category	. "L")
     (mirrored		. nil)
-    (->decomposition	compat #x1174)
     (=ucs		. #x3162)	; ㅢ
-    (=ks-x1001		. #x2452)	; &I-K0-2452;
+    (=ks-x1001		. #x2452)	; &I-K0-2452; [04-50]
+    (<-compat
+     ((name		  . "HANGUL JUNGSEONG YI")
+      (=ucs		  . #x1174)	; ᅴ
+      ))
     ))
 (define-char
   '((name		. "HANGUL LETTER I")
     (general-category	letter other) ; Informative Category
     (bidi-category	. "L")
     (mirrored		. nil)
-    (->decomposition	compat #x1175)
     (=ucs		. #x3163)	; ㅣ
-    (=ks-x1001		. #x2453)	; &I-K0-2453;
+    (=ks-x1001		. #x2453)	; &I-K0-2453; [04-51]
+    (<-compat
+     ((name		  . "HANGUL JUNGSEONG I")
+      (=ucs		  . #x1175)	; ᅵ
+      ))
     ))
 (define-char
   '((name		. "HANGUL FILLER")
     (general-category	letter other) ; Informative Category
     (bidi-category	. "L")
     (mirrored		. nil)
-    (->decomposition	compat #x1160)
     (=ucs		. #x3164)	; ㅤ
-    (=ks-x1001		. #x2454)	; &I-K0-2454;
+    (=ks-x1001		. #x2454)	; &I-K0-2454; [04-52]
+    (<-compat
+     ((name		  . "HANGUL JUNGSEONG FILLER")
+      (=ucs		  . #x1160)	; ᅠ
+      ))
     ))
 (define-char
   '((name		. "HANGUL LETTER SSANGNIEUN")
     (general-category	letter other) ; Informative Category
     (bidi-category	. "L")
     (mirrored		. nil)
-    (->decomposition	compat #x1114)
     (=ucs		. #x3165)	; ㅥ
-    (=ks-x1001		. #x2455)	; &I-K0-2455;
+    (=ks-x1001		. #x2455)	; &I-K0-2455; [04-53]
+    (<-compat
+     ((name		  . "HANGUL CHOSEONG SSANGNIEUN")
+      (=ucs		  . #x1114)	; ᄔ
+      ))
     ))
 (define-char
   '((name		. "HANGUL LETTER NIEUN-TIKEUT")
     (general-category	letter other) ; Informative Category
     (bidi-category	. "L")
     (mirrored		. nil)
-    (->decomposition	compat #x1115)
     (=ucs		. #x3166)	; ㅦ
-    (=ks-x1001		. #x2456)	; &I-K0-2456;
+    (=ks-x1001		. #x2456)	; &I-K0-2456; [04-54]
+    (<-compat
+     ((name		  . "HANGUL CHOSEONG NIEUN-TIKEUT")
+      (=ucs		  . #x1115)	; ᄕ
+      ))
     ))
 (define-char
   '((name		. "HANGUL LETTER NIEUN-SIOS")
     (general-category	letter other) ; Informative Category
     (bidi-category	. "L")
     (mirrored		. nil)
-    (->decomposition	compat #x11C7)
     (=ucs		. #x3167)	; ㅧ
-    (=ks-x1001		. #x2457)	; &I-K0-2457;
+    (=ks-x1001		. #x2457)	; &I-K0-2457; [04-55]
+    (<-compat
+     ((name		  . "HANGUL JONGSEONG NIEUN-SIOS")
+      (=ucs		  . #x11C7)	; ᇇ
+      ))
     ))
 (define-char
   '((name		. "HANGUL LETTER NIEUN-PANSIOS")
     (general-category	letter other) ; Informative Category
     (bidi-category	. "L")
     (mirrored		. nil)
-    (->decomposition	compat #x11C8)
     (=ucs		. #x3168)	; ㅨ
-    (=ks-x1001		. #x2458)	; &I-K0-2458;
+    (=ks-x1001		. #x2458)	; &I-K0-2458; [04-56]
+    (<-compat
+     ((name		  . "HANGUL JONGSEONG NIEUN-PANSIOS")
+      (=ucs		  . #x11C8)	; ᇈ
+      ))
     ))
 (define-char
   '((name		. "HANGUL LETTER RIEUL-KIYEOK-SIOS")
     (general-category	letter other) ; Informative Category
     (bidi-category	. "L")
     (mirrored		. nil)
-    (->decomposition	compat #x11CC)
     (=ucs		. #x3169)	; ㅩ
-    (=ks-x1001		. #x2459)	; &I-K0-2459;
+    (=ks-x1001		. #x2459)	; &I-K0-2459; [04-57]
+    (<-compat
+     ((name		  . "HANGUL JONGSEONG RIEUL-KIYEOK-SIOS")
+      (=ucs		  . #x11CC)	; ᇌ
+      ))
     ))
 (define-char
   '((name		. "HANGUL LETTER RIEUL-TIKEUT")
     (general-category	letter other) ; Informative Category
     (bidi-category	. "L")
     (mirrored		. nil)
-    (->decomposition	compat #x11CE)
     (=ucs		. #x316A)	; ㅪ
-    (=ks-x1001		. #x245A)	; &I-K0-245A;
+    (=ks-x1001		. #x245A)	; &I-K0-245A; [04-58]
+    (<-compat
+     ((name		  . "HANGUL JONGSEONG RIEUL-TIKEUT")
+      (=ucs		  . #x11CE)	; ᇎ
+      ))
     ))
 (define-char
   '((name		. "HANGUL LETTER RIEUL-PIEUP-SIOS")
     (general-category	letter other) ; Informative Category
     (bidi-category	. "L")
     (mirrored		. nil)
-    (->decomposition	compat #x11D3)
     (=ucs		. #x316B)	; ㅫ
-    (=ks-x1001		. #x245B)	; &I-K0-245B;
+    (=ks-x1001		. #x245B)	; &I-K0-245B; [04-59]
+    (<-compat
+     ((name		  . "HANGUL JONGSEONG RIEUL-PIEUP-SIOS")
+      (=ucs		  . #x11D3)	; ᇓ
+      ))
     ))
 (define-char
   '((name		. "HANGUL LETTER RIEUL-PANSIOS")
     (general-category	letter other) ; Informative Category
     (bidi-category	. "L")
     (mirrored		. nil)
-    (->decomposition	compat #x11D7)
     (=ucs		. #x316C)	; ㅬ
-    (=ks-x1001		. #x245C)	; &I-K0-245C;
+    (=ks-x1001		. #x245C)	; &I-K0-245C; [04-60]
+    (<-compat
+     ((name		  . "HANGUL JONGSEONG RIEUL-PANSIOS")
+      (=ucs		  . #x11D7)	; ᇗ
+      ))
     ))
 (define-char
   '((name		. "HANGUL LETTER RIEUL-YEORINHIEUH")
     (general-category	letter other) ; Informative Category
     (bidi-category	. "L")
     (mirrored		. nil)
-    (->decomposition	compat #x11D9)
     (=ucs		. #x316D)	; ㅭ
-    (=ks-x1001		. #x245D)	; &I-K0-245D;
+    (=ks-x1001		. #x245D)	; &I-K0-245D; [04-61]
+    (<-compat
+     ((name		  . "HANGUL JONGSEONG RIEUL-YEORINHIEUH")
+      (=ucs		  . #x11D9)	; ᇙ
+      ))
     ))
 (define-char
   '((name		. "HANGUL LETTER MIEUM-PIEUP")
     (general-category	letter other) ; Informative Category
     (bidi-category	. "L")
     (mirrored		. nil)
-    (->decomposition	compat #x111C)
     (=ucs		. #x316E)	; ㅮ
-    (=ks-x1001		. #x245E)	; &I-K0-245E;
+    (=ks-x1001		. #x245E)	; &I-K0-245E; [04-62]
+    (<-compat
+     ((name		  . "HANGUL CHOSEONG MIEUM-PIEUP")
+      (=ucs		  . #x111C)	; ᄜ
+      ))
     ))
 (define-char
   '((name		. "HANGUL LETTER MIEUM-SIOS")
     (general-category	letter other) ; Informative Category
     (bidi-category	. "L")
     (mirrored		. nil)
-    (->decomposition	compat #x11DD)
     (=ucs		. #x316F)	; ㅯ
-    (=ks-x1001		. #x245F)	; &I-K0-245F;
+    (=ks-x1001		. #x245F)	; &I-K0-245F; [04-63]
+    (<-compat
+     ((name		  . "HANGUL JONGSEONG MIEUM-SIOS")
+      (=ucs		  . #x11DD)	; ᇝ
+      ))
     ))
 (define-char
   '((name		. "HANGUL LETTER MIEUM-PANSIOS")
     (general-category	letter other) ; Informative Category
     (bidi-category	. "L")
     (mirrored		. nil)
-    (->decomposition	compat #x11DF)
     (=ucs		. #x3170)	; ㅰ
-    (=ks-x1001		. #x2460)	; &I-K0-2460;
+    (=ks-x1001		. #x2460)	; &I-K0-2460; [04-64]
+    (<-compat
+     ((name		  . "HANGUL JONGSEONG MIEUM-PANSIOS")
+      (=ucs		  . #x11DF)	; ᇟ
+      ))
     ))
 (define-char
   '((name		. "HANGUL LETTER KAPYEOUNMIEUM")
     (general-category	letter other) ; Informative Category
     (bidi-category	. "L")
     (mirrored		. nil)
-    (->decomposition	compat #x111D)
     (=ucs		. #x3171)	; ㅱ
-    (=ks-x1001		. #x2461)	; &I-K0-2461;
+    (=ks-x1001		. #x2461)	; &I-K0-2461; [04-65]
+    (<-compat
+     ((name		  . "HANGUL CHOSEONG KAPYEOUNMIEUM")
+      (=ucs		  . #x111D)	; ᄝ
+      ))
     ))
 (define-char
   '((name		. "HANGUL LETTER PIEUP-KIYEOK")
     (general-category	letter other) ; Informative Category
     (bidi-category	. "L")
     (mirrored		. nil)
-    (->decomposition	compat #x111E)
     (=ucs		. #x3172)	; ㅲ
-    (=ks-x1001		. #x2462)	; &I-K0-2462;
+    (=ks-x1001		. #x2462)	; &I-K0-2462; [04-66]
+    (<-compat
+     ((name		  . "HANGUL CHOSEONG PIEUP-KIYEOK")
+      (=ucs		  . #x111E)	; ᄞ
+      ))
     ))
 (define-char
   '((name		. "HANGUL LETTER PIEUP-TIKEUT")
     (general-category	letter other) ; Informative Category
     (bidi-category	. "L")
     (mirrored		. nil)
-    (->decomposition	compat #x1120)
     (=ucs		. #x3173)	; ㅳ
-    (=ks-x1001		. #x2463)	; &I-K0-2463;
+    (=ks-x1001		. #x2463)	; &I-K0-2463; [04-67]
+    (<-compat
+     ((name		  . "HANGUL CHOSEONG PIEUP-TIKEUT")
+      (=ucs		  . #x1120)	; ᄠ
+      ))
     ))
 (define-char
   '((name		. "HANGUL LETTER PIEUP-SIOS-KIYEOK")
     (general-category	letter other) ; Informative Category
     (bidi-category	. "L")
     (mirrored		. nil)
-    (->decomposition	compat #x1122)
     (=ucs		. #x3174)	; ㅴ
-    (=ks-x1001		. #x2464)	; &I-K0-2464;
+    (=ks-x1001		. #x2464)	; &I-K0-2464; [04-68]
+    (<-compat
+     ((name		  . "HANGUL CHOSEONG PIEUP-SIOS-KIYEOK")
+      (=ucs		  . #x1122)	; ᄢ
+      ))
     ))
 (define-char
   '((name		. "HANGUL LETTER PIEUP-SIOS-TIKEUT")
     (general-category	letter other) ; Informative Category
     (bidi-category	. "L")
     (mirrored		. nil)
-    (->decomposition	compat #x1123)
     (=ucs		. #x3175)	; ㅵ
-    (=ks-x1001		. #x2465)	; &I-K0-2465;
+    (=ks-x1001		. #x2465)	; &I-K0-2465; [04-69]
+    (<-compat
+     ((name		  . "HANGUL CHOSEONG PIEUP-SIOS-TIKEUT")
+      (=ucs		  . #x1123)	; ᄣ
+      ))
     ))
 (define-char
   '((name		. "HANGUL LETTER PIEUP-CIEUC")
     (general-category	letter other) ; Informative Category
     (bidi-category	. "L")
     (mirrored		. nil)
-    (->decomposition	compat #x1127)
     (=ucs		. #x3176)	; ㅶ
-    (=ks-x1001		. #x2466)	; &I-K0-2466;
+    (=ks-x1001		. #x2466)	; &I-K0-2466; [04-70]
+    (<-compat
+     ((name		  . "HANGUL CHOSEONG PIEUP-CIEUC")
+      (=ucs		  . #x1127)	; ᄧ
+      ))
     ))
 (define-char
   '((name		. "HANGUL LETTER PIEUP-THIEUTH")
     (general-category	letter other) ; Informative Category
     (bidi-category	. "L")
     (mirrored		. nil)
-    (->decomposition	compat #x1129)
     (=ucs		. #x3177)	; ㅷ
-    (=ks-x1001		. #x2467)	; &I-K0-2467;
+    (=ks-x1001		. #x2467)	; &I-K0-2467; [04-71]
+    (<-compat
+     ((name		  . "HANGUL CHOSEONG PIEUP-THIEUTH")
+      (=ucs		  . #x1129)	; ᄩ
+      ))
     ))
 (define-char
   '((name		. "HANGUL LETTER KAPYEOUNPIEUP")
     (general-category	letter other) ; Informative Category
     (bidi-category	. "L")
     (mirrored		. nil)
-    (->decomposition	compat #x112B)
     (=ucs		. #x3178)	; ㅸ
-    (=ks-x1001		. #x2468)	; &I-K0-2468;
+    (=ks-x1001		. #x2468)	; &I-K0-2468; [04-72]
+    (<-compat
+     ((name		  . "HANGUL CHOSEONG KAPYEOUNPIEUP")
+      (=ucs		  . #x112B)	; ᄫ
+      ))
     ))
 (define-char
   '((name		. "HANGUL LETTER KAPYEOUNSSANGPIEUP")
     (general-category	letter other) ; Informative Category
     (bidi-category	. "L")
     (mirrored		. nil)
-    (->decomposition	compat #x112C)
     (=ucs		. #x3179)	; ㅹ
-    (=ks-x1001		. #x2469)	; &I-K0-2469;
+    (=ks-x1001		. #x2469)	; &I-K0-2469; [04-73]
+    (<-compat
+     ((name		  . "HANGUL CHOSEONG KAPYEOUNSSANGPIEUP")
+      (=ucs		  . #x112C)	; ᄬ
+      ))
     ))
 (define-char
   '((name		. "HANGUL LETTER SIOS-KIYEOK")
     (general-category	letter other) ; Informative Category
     (bidi-category	. "L")
     (mirrored		. nil)
-    (->decomposition	compat #x112D)
     (=ucs		. #x317A)	; ㅺ
-    (=ks-x1001		. #x246A)	; &I-K0-246A;
+    (=ks-x1001		. #x246A)	; &I-K0-246A; [04-74]
+    (<-compat
+     ((name		  . "HANGUL CHOSEONG SIOS-KIYEOK")
+      (=ucs		  . #x112D)	; ᄭ
+      ))
     ))
 (define-char
   '((name		. "HANGUL LETTER SIOS-NIEUN")
     (general-category	letter other) ; Informative Category
     (bidi-category	. "L")
     (mirrored		. nil)
-    (->decomposition	compat #x112E)
     (=ucs		. #x317B)	; ㅻ
-    (=ks-x1001		. #x246B)	; &I-K0-246B;
+    (=ks-x1001		. #x246B)	; &I-K0-246B; [04-75]
+    (<-compat
+     ((name		  . "HANGUL CHOSEONG SIOS-NIEUN")
+      (=ucs		  . #x112E)	; ᄮ
+      ))
     ))
 (define-char
   '((name		. "HANGUL LETTER SIOS-TIKEUT")
     (general-category	letter other) ; Informative Category
     (bidi-category	. "L")
     (mirrored		. nil)
-    (->decomposition	compat #x112F)
     (=ucs		. #x317C)	; ㅼ
-    (=ks-x1001		. #x246C)	; &I-K0-246C;
+    (=ks-x1001		. #x246C)	; &I-K0-246C; [04-76]
+    (<-compat
+     ((name		  . "HANGUL CHOSEONG SIOS-TIKEUT")
+      (=ucs		  . #x112F)	; ᄯ
+      ))
     ))
 (define-char
   '((name		. "HANGUL LETTER SIOS-PIEUP")
     (general-category	letter other) ; Informative Category
     (bidi-category	. "L")
     (mirrored		. nil)
-    (->decomposition	compat #x1132)
     (=ucs		. #x317D)	; ㅽ
-    (=ks-x1001		. #x246D)	; &I-K0-246D;
+    (=ks-x1001		. #x246D)	; &I-K0-246D; [04-77]
+    (<-compat
+     ((name		  . "HANGUL CHOSEONG SIOS-PIEUP")
+      (=ucs		  . #x1132)	; ᄲ
+      ))
     ))
 (define-char
   '((name		. "HANGUL LETTER SIOS-CIEUC")
     (general-category	letter other) ; Informative Category
     (bidi-category	. "L")
     (mirrored		. nil)
-    (->decomposition	compat #x1136)
     (=ucs		. #x317E)	; ㅾ
-    (=ks-x1001		. #x246E)	; &I-K0-246E;
+    (=ks-x1001		. #x246E)	; &I-K0-246E; [04-78]
+    (<-compat
+     ((name		  . "HANGUL CHOSEONG SIOS-CIEUC")
+      (=ucs		  . #x1136)	; ᄶ
+      ))
     ))
 (define-char
   '((name		. "HANGUL LETTER PANSIOS")
     (general-category	letter other) ; Informative Category
     (bidi-category	. "L")
     (mirrored		. nil)
-    (->decomposition	compat #x1140)
     (=ucs		. #x317F)	; ㅿ
-    (=ks-x1001		. #x246F)	; &I-K0-246F;
+    (=ks-x1001		. #x246F)	; &I-K0-246F; [04-79]
+    (<-compat
+     ((name		  . "HANGUL CHOSEONG PANSIOS")
+      (=ucs		  . #x1140)	; ᅀ
+      ))
     ))
 (define-char
   '((name		. "HANGUL LETTER SSANGIEUNG")
     (general-category	letter other) ; Informative Category
     (bidi-category	. "L")
     (mirrored		. nil)
-    (->decomposition	compat #x1147)
     (=ucs		. #x3180)	; ㆀ
-    (=ks-x1001		. #x2470)	; &I-K0-2470;
+    (=ks-x1001		. #x2470)	; &I-K0-2470; [04-80]
+    (<-compat
+     ((name		  . "HANGUL CHOSEONG SSANGIEUNG")
+      (=ucs		  . #x1147)	; ᅇ
+      ))
     ))
 (define-char
   '((name		. "HANGUL LETTER YESIEUNG")
     (general-category	letter other) ; Informative Category
     (bidi-category	. "L")
     (mirrored		. nil)
-    (->decomposition	compat #x114C)
     (=ucs		. #x3181)	; ㆁ
-    (=ks-x1001		. #x2471)	; &I-K0-2471;
+    (=ks-x1001		. #x2471)	; &I-K0-2471; [04-81]
+    (<-compat
+     ((name		  . "HANGUL CHOSEONG YESIEUNG")
+      (=ucs		  . #x114C)	; ᅌ
+      ))
     ))
 (define-char
   '((name		. "HANGUL LETTER YESIEUNG-SIOS")
     (general-category	letter other) ; Informative Category
     (bidi-category	. "L")
     (mirrored		. nil)
-    (->decomposition	compat #x11F1)
     (=ucs		. #x3182)	; ㆂ
-    (=ks-x1001		. #x2472)	; &I-K0-2472;
+    (=ks-x1001		. #x2472)	; &I-K0-2472; [04-82]
+    (<-compat
+     ((name		  . "HANGUL JONGSEONG YESIEUNG-SIOS")
+      (=ucs		  . #x11F1)	; ᇱ
+      ))
     ))
 (define-char
   '((name		. "HANGUL LETTER YESIEUNG-PANSIOS")
     (general-category	letter other) ; Informative Category
     (bidi-category	. "L")
     (mirrored		. nil)
-    (->decomposition	compat #x11F2)
     (=ucs		. #x3183)	; ㆃ
-    (=ks-x1001		. #x2473)	; &I-K0-2473;
+    (=ks-x1001		. #x2473)	; &I-K0-2473; [04-83]
+    (<-compat
+     ((name		  . "HANGUL JONGSEONG YESIEUNG-PANSIOS")
+      (=ucs		  . #x11F2)	; ᇲ
+      ))
     ))
 (define-char
   '((name		. "HANGUL LETTER KAPYEOUNPHIEUPH")
     (general-category	letter other) ; Informative Category
     (bidi-category	. "L")
     (mirrored		. nil)
-    (->decomposition	compat #x1157)
     (=ucs		. #x3184)	; ㆄ
-    (=ks-x1001		. #x2474)	; &I-K0-2474;
+    (=ks-x1001		. #x2474)	; &I-K0-2474; [04-84]
+    (<-compat
+     ((name		  . "HANGUL CHOSEONG KAPYEOUNPHIEUPH")
+      (=ucs		  . #x1157)	; ᅗ
+      ))
     ))
 (define-char
   '((name		. "HANGUL LETTER SSANGHIEUH")
     (general-category	letter other) ; Informative Category
     (bidi-category	. "L")
     (mirrored		. nil)
-    (->decomposition	compat #x1158)
     (=ucs		. #x3185)	; ㆅ
-    (=ks-x1001		. #x2475)	; &I-K0-2475;
+    (=ks-x1001		. #x2475)	; &I-K0-2475; [04-85]
+    (<-compat
+     ((name		  . "HANGUL CHOSEONG SSANGHIEUH")
+      (=ucs		  . #x1158)	; ᅘ
+      ))
     ))
 (define-char
   '((name		. "HANGUL LETTER YEORINHIEUH")
     (general-category	letter other) ; Informative Category
     (bidi-category	. "L")
     (mirrored		. nil)
-    (->decomposition	compat #x1159)
     (=ucs		. #x3186)	; ㆆ
-    (=ks-x1001		. #x2476)	; &I-K0-2476;
+    (=ks-x1001		. #x2476)	; &I-K0-2476; [04-86]
+    (<-compat
+     ((name		  . "HANGUL CHOSEONG YEORINHIEUH")
+      (=ucs		  . #x1159)	; ᅙ
+      ))
     ))
 (define-char
   '((name		. "HANGUL LETTER YO-YA")
     (general-category	letter other) ; Informative Category
     (bidi-category	. "L")
     (mirrored		. nil)
-    (->decomposition	compat #x1184)
     (=ucs		. #x3187)	; ㆇ
-    (=ks-x1001		. #x2477)	; &I-K0-2477;
+    (=ks-x1001		. #x2477)	; &I-K0-2477; [04-87]
+    (<-compat
+     ((name		  . "HANGUL JUNGSEONG YO-YA")
+      (=ucs		  . #x1184)	; ᆄ
+      ))
     ))
 (define-char
   '((name		. "HANGUL LETTER YO-YAE")
     (general-category	letter other) ; Informative Category
     (bidi-category	. "L")
     (mirrored		. nil)
-    (->decomposition	compat #x1185)
     (=ucs		. #x3188)	; ㆈ
-    (=ks-x1001		. #x2478)	; &I-K0-2478;
+    (=ks-x1001		. #x2478)	; &I-K0-2478; [04-88]
+    (<-compat
+     ((name		  . "HANGUL JUNGSEONG YO-YAE")
+      (=ucs		  . #x1185)	; ᆅ
+      ))
     ))
 (define-char
   '((name		. "HANGUL LETTER YO-I")
     (general-category	letter other) ; Informative Category
     (bidi-category	. "L")
     (mirrored		. nil)
-    (->decomposition	compat #x1188)
     (=ucs		. #x3189)	; ㆉ
-    (=ks-x1001		. #x2479)	; &I-K0-2479;
+    (=ks-x1001		. #x2479)	; &I-K0-2479; [04-89]
+    (<-compat
+     ((name		  . "HANGUL JUNGSEONG YO-I")
+      (=ucs		  . #x1188)	; ᆈ
+      ))
     ))
 (define-char
   '((name		. "HANGUL LETTER YU-YEO")
     (general-category	letter other) ; Informative Category
     (bidi-category	. "L")
     (mirrored		. nil)
-    (->decomposition	compat #x1191)
     (=ucs		. #x318A)	; ㆊ
-    (=ks-x1001		. #x247A)	; &I-K0-247A;
+    (=ks-x1001		. #x247A)	; &I-K0-247A; [04-90]
+    (<-compat
+     ((name		  . "HANGUL JUNGSEONG YU-YEO")
+      (=ucs		  . #x1191)	; ᆑ
+      ))
     ))
 (define-char
   '((name		. "HANGUL LETTER YU-YE")
     (general-category	letter other) ; Informative Category
     (bidi-category	. "L")
     (mirrored		. nil)
-    (->decomposition	compat #x1192)
     (=ucs		. #x318B)	; ㆋ
-    (=ks-x1001		. #x247B)	; &I-K0-247B;
+    (=ks-x1001		. #x247B)	; &I-K0-247B; [04-91]
+    (<-compat
+     ((name		  . "HANGUL JUNGSEONG YU-YE")
+      (=ucs		  . #x1192)	; ᆒ
+      ))
     ))
 (define-char
   '((name		. "HANGUL LETTER YU-I")
     (general-category	letter other) ; Informative Category
     (bidi-category	. "L")
     (mirrored		. nil)
-    (->decomposition	compat #x1194)
     (=ucs		. #x318C)	; ㆌ
-    (=ks-x1001		. #x247C)	; &I-K0-247C;
+    (=ks-x1001		. #x247C)	; &I-K0-247C; [04-92]
+    (<-compat
+     ((name		  . "HANGUL JUNGSEONG YU-I")
+      (=ucs		  . #x1194)	; ᆔ
+      ))
     ))
 (define-char
   '((name		. "HANGUL LETTER ARAEA")
     (general-category	letter other) ; Informative Category
     (bidi-category	. "L")
     (mirrored		. nil)
-    (->decomposition	compat #x119E)
     (=ucs		. #x318D)	; ㆍ
-    (=ks-x1001		. #x247D)	; &I-K0-247D;
+    (=ks-x1001		. #x247D)	; &I-K0-247D; [04-93]
+    (<-compat
+     ((name		  . "HANGUL JUNGSEONG ARAEA")
+      (=ucs		  . #x119E)	; ᆞ
+      ))
     ))
 (define-char
   '((name		. "HANGUL LETTER ARAEAE")
     (general-category	letter other) ; Informative Category
     (bidi-category	. "L")
     (mirrored		. nil)
-    (->decomposition	compat #x11A1)
     (=ucs		. #x318E)	; ㆎ
-    (=ks-x1001		. #x247E)	; &I-K0-247E;
+    (=ks-x1001		. #x247E)	; &I-K0-247E; [04-94]
+    (<-compat
+     ((name		  . "HANGUL JUNGSEONG ARAEA-I")
+      (=ucs		  . #x11A1)	; ᆡ
+      ))
     ))