(U-0002339B): Integrate M-14401; use `->subsumptive'.

(U-0002339C): Use `ideographic-radical@{ucs|cns11643-4}' and
`ideographic-radical@{ucs|cns11643-4}@sources' instead of
`ideographic-'; use `->denotational'.
(M-14404): New character.
(U-000233A3): Integrate M-14405; use `->subsumptive'.
(U-000233A4): Integrate M-14406; use `->subsumptive'.
(U-00026856): New character [copied from Ideograph-R130-Meat.el].
(U-000233A9): Integrate M-14408; use `->subsumptive'.
(U+6726): Use `->denotational' and `->subsumptive'.
(U-000233AD): Unify M-14410.
(U+6727): Use `->subsumptive'.
(U-000233AE): Unify M-14412.
(U+9738): Use `->subsumptive'.
(U-000233B1): Integrate M-14413; use `->subsumptive'.
(U-000233B2): Unify M-14414.

diff --git a/lisp/utf-2000/Ideograph-R074-Moon.el b/lisp/utf-2000/Ideograph-R074-Moon.el
index 3906d7c..493f079 100644 (file)
--- a/lisp/utf-2000/Ideograph-R074-Moon.el
+++ b/lisp/utf-2000/Ideograph-R074-Moon.el
@@ -1488,6 +1488,18 @@
   '((ideographic-radical . 74) ; ⽉
     (ideographic-strokes . 12)
     (total-strokes      . 16)
+    (=ucs              . #x2339B)      ; 𣎛
+    (->subsumptive
+     ((=daikanwa         . 14401)      ; &M-14401;
+      )
+     ((=ucs@iso                  . #x2339B)    ; &C5-546C;
+      (=cns11643-5       . #x546C)     ; &C5-546C; [52-76]
+      ))
+    ))
+(define-char
+  '((ideographic-radical . 74) ; ⽉
+    (ideographic-strokes . 12)
+    (total-strokes      . 16)
     (=ucs              . #x6724)       ; 朤
     (->subsumptive
      ((=daikanwa         . 14402)      ; &M-14402;
@@ -1497,17 +1509,40 @@
       ))
     ))
 (define-char
+  '((ideographic-radical@ucs . 74)     ; ⽉
+    (ideographic-radical@ucs*sources
+     daikanwa=14403 cns11643-5)
+    (ideographic-radical@cns11643-4 . 130)     ; ⾁
+    (ideographic-radical@cns11643-4*sources
+     daikanwa=29927 cns11643-4)
+    (=ucs              . #x2339C)      ; 𣎜
+    ))
+(define-char
+  '((<-denotational
+     ((=ucs              . #x2339C)    ; 𣎜
+      ))
+    (ideographic-radical . 74) ; ⽉
+    (ideographic-strokes@daikanwa . 12)
+    (total-strokes@daikanwa      . 16)
+    (ideographic-strokes@cns . 13)
+    (total-strokes@cns      . 17)
+    (total-strokes@cns*sources
+     cns11643-5)
+    (=ucs@iso          . #x2339C)      ; &M-14403;
+    (=cns11643-5       . #x5B64)       ; &M-14403; [59-68]
+    (=daikanwa         . 14403)        ; &I-M-14403;
+    ))
+(define-char
   '((ideographic-radical . 74) ; ⽉
     (ideographic-strokes . 12)
     (total-strokes      . 16)
-    (=ucs              . #x6725)       ; 朥
+    (=daikanwa         . 14404)        ; &M-14404;
     ))
 (define-char
   '((ideographic-radical . 74) ; ⽉
     (ideographic-strokes . 12)
     (total-strokes      . 16)
-    (=ucs              . #x2339B)      ; 𣎛
-    (=cns11643-5       . #x546C)       ; &I-C5-546C; [52-76]
+    (=ucs              . #x6725)       ; 朥
     ))
 (define-char
   '((ideographic-radical . 74) ; ⽉
@@ -1517,80 +1552,95 @@
     (=cns11643-5       . #x546D)       ; &I-C5-546D; [52-77]
     ))
 (define-char
-  '((ideographic-      (:radical       130 ; ⾁
-                        :strokes       13
-                        :sources       (morohashi-daikanwa))
-                       (:radical       74 ; ⽉
-                        :strokes       13
-                        :sources       (ucs cns-11643)))
-    (total-strokes      . 17)
-    (=ucs              . #x2339C)      ; 𣎜
-    (=cns11643-5       . #x5B64)       ; &I-C5-5B64; [59-68]
-    (=daikanwa         . 29927)        ; &I-M-29927;
-    ))
-(define-char
   '((ideographic-radical . 74) ; ⽉
     (ideographic-strokes . 13)
     (total-strokes      . 17)
     (=ucs              . #x233A3)      ; 𣎣
-    (=cns11643-7       . #x384B)       ; &I-C7-384B; [24-43]
+    (->subsumptive
+     ((=daikanwa         . 14405)      ; &M-14405;
+      )
+     ((=ucs@iso                  . #x233A3)    ; &C7-384B;
+      (=cns11643-7       . #x384B)     ; &C7-384B; [24-43]
+      ))
     ))
 (define-char
   '((ideographic-radical . 74) ; ⽉
     (ideographic-strokes . 13)
     (total-strokes      . 17)
     (=ucs              . #x233A4)      ; 𣎤
-    (=cns11643-7       . #x384A)       ; &I-C7-384A; [24-42]
+    (->subsumptive
+     ((=daikanwa         . 14406)      ; &M-14406;
+      (<-ancient
+       ((=ucs@jis          . #x97B6)   ; &M-42977;
+       (=jis-x0212         . #x6751)   ; &M-42977; [71-49]
+       (=daikanwa          . 42977)    ; &I-M-42977;
+       ))
+      (<-ancient*sources
+       zihui-bu daikanwa)
+      )
+     ((=ucs@unicode      . #x233A4)    ; &C7-384A;
+      (=cns11643-7       . #x384A)     ; &C7-384A; [24-42]
+      ))
     ))
 (define-char
-  '((=>ucs             . #x6726)       ; 朦
-    (ideographic-radical . 74) ; ⽉
-    (ideographic-strokes . 14)
-    (total-strokes      . 18)
-    (=daikanwa         . 14409)        ; &M-14409;
+  '((ideographic-radical@ucs . 130)    ; ⾁
+    (ideographic-radical@daikanwa . 74)        ; ⽉
+    (ideographic-strokes . 13)
+    (total-strokes      . 17)
+    (hanyu-dazidian    3 2115 13)
+    (=ucs              . #x26856)      ; 𦡖
+    (=daikanwa         . 14407)        ; &I-M-14407;
+    (=hanziku-6                . #xB3AA)       ; &I-HZK06-B3AA;
     ))
 (define-char
-  '((=>ucs             . #x6726)       ; 朦
-    (morohashi-daikanwa        14409 0 1)
-    (ideographic-radical . 74) ; ⽉
+  '((ideographic-radical . 74) ; ⽉
     (ideographic-strokes . 14)
     (total-strokes      . 18)
-    (=cns11643-1       . #x764D)       ; &C1-764D; [86-45]
-    ))
-(define-char
-  '((=>ucs             . #x6726)       ; 朦
-    (morohashi-daikanwa        14409 0 2)
-    (ideographic-radical . 74) ; ⽉
-    (ideographic-strokes . 13)
-    (total-strokes      . 17)
-    (=ucs@jis          . #x6726)       ; &GT-18322;
-    (=jis-x0208                . #x5B2F)       ; &GT-18322; [59-15]
-    (=ks-x1001         . #x5954)       ; &I-K0-5954; [57-52]
-    (=jis-x0213-1      . #x5B2F)       ; &I-JX1-5B2F; [59-15]
-    (=gt               . 18322)        ; &I-GT-18322;
-    (=gt-pj-1          . #x5B2F)       ; &I-GT-18322; [59-15]
+    (=ucs              . #x233A9)      ; 𣎩
+    (->subsumptive
+     ((=daikanwa         . 14408)      ; &M-14408;
+      )
+     ((=ucs@iso                  . #x233A9)    ; &U-000233A9;
+      )
+     ((=cns11643-5       . #x6175)     ; &C5-6175; [65-85]
+      ))
     ))
 (define-char
-  '((morohashi-daikanwa        14409 0 3)
-    (ideographic-radical . 74) ; ⽉
-    (ideographic-strokes . 13)
-    (total-strokes      . 17)
+  '((ideographic-radical . 74) ; ⽉
     (=ucs              . #x6726)       ; 朦
-    (=gb2312           . #x6B7C)       ; &I-G0-6B7C; [75-92]
     (=big5             . #xC261)       ; &I-B-C261;
     ))
 (define-char
-  '((ideographic-radical . 74) ; ⽉
+  '((<-denotational
+     ((=ucs              . #x6726)     ; 朦
+      ))
+    (ideographic-radical . 74) ; ⽉
     (ideographic-strokes . 14)
     (total-strokes      . 18)
-    (=ucs              . #x233A9)      ; 𣎩
+    (->subsumptive
+     ((=daikanwa         . 14409)      ; &M-14409;
+      )
+     ((=cns11643-1       . #x764D)     ; &C1-764D; [86-45]
+      ))
     ))
 (define-char
-  '((=>ucs             . #x233A9)      ; 𣎩
+  '((<-denotational
+     ((=ucs              . #x6726)     ; 朦
+      ))
     (ideographic-radical . 74) ; ⽉
-    (ideographic-strokes . 14)
-    (total-strokes      . 18)
-    (=cns11643-5       . #x6175)       ; &C5-6175; [65-85]
+    (ideographic-strokes . 13)
+    (total-strokes      . 17)
+    (->subsumptive
+     ((=ucs@jis                  . #x6726)     ; &GT-18322;
+      (=jis-x0208        . #x5B2F)     ; &GT-18322; [59-15]
+      (=ks-x1001         . #x5954)     ; &I-K0-5954; [57-52]
+      (=jis-x0213-1      . #x5B2F)     ; &I-JX1-5B2F; [59-15]
+      (=gt               . 18322)      ; &I-GT-18322;
+      (=gt-pj-1                  . #x5B2F)     ; &I-GT-18322; [59-15]
+      )
+     ((=ucs@unicode      . #x6726)     ; &G0-6B7C;
+      (=gb2312           . #x6B7C)     ; &G0-6B7C; [75-92]
+      ))
     ))
 (define-char
   '((ideographic-radical . 74) ; ⽉
@@ -1598,38 +1648,100 @@
     (total-strokes      . 18)
     (=ucs              . #x233AD)      ; 𣎭
     (=cns11643-7       . #x3F7B)       ; &I-C7-3F7B; [31-91]
+    (=daikanwa         . 14410)        ; &I-M-14410;
     ))
 (define-char
-  '((=>ucs             . #x6727)       ; 朧
-    (ideographic-radical . 74) ; ⽉
-    (ideographic-strokes . 16)
-    (total-strokes      . 20)
-    (=ucs@jis          . #x6727)       ; &GT-18334;
-    (=ucs@big5         . #x6727)       ; &GT-18334;
-    (=jis-x0208                . #x5B30)       ; &GT-18334; [59-16]
-    (=ks-x1001         . #x5668)       ; &I-K0-5668; [54-72]
-    (=jis-x0213-1      . #x5B30)       ; &I-JX1-5B30; [59-16]
-    (=big5             . #xC467)       ; &I-B-C467;
-    (=gt               . 18334)        ; &I-GT-18334;
-    (=gt-pj-1          . #x5B30)       ; &I-GT-18334; [59-16]
-    (=daikanwa         . 14411)        ; &I-M-14411;
-    (=shinjigen@rev    .  3453)        ; &GT-18334;
-    ))
-(define-char
-  '((morohashi-daikanwa        14411 0 0)
-    (ideographic-radical . 74) ; ⽉
+  '((ideographic-radical . 74) ; ⽉
     (ideographic-strokes . 16)
     (total-strokes      . 20)
     (=ucs              . #x6727)       ; 朧
-    (=gb12345          . #x6B4A)       ; 朧 [75-42]
-    ))
-(define-char
-  '((=>ucs             . #x6727)       ; 朧
-    (morohashi-daikanwa        14411 0 1)
-    (ideographic-radical . 74) ; ⽉
-    (ideographic-strokes . 16)
-    (total-strokes      . 20)
-    (=cns11643-1       . #x7972)       ; &C1-7972; [89-82]
+    (=big5             . #xC467)       ; &I-B-C467;
+    (->subsumptive
+     ((ideographic-structure
+       ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER LEFT TO RIGHT")
+       (=ucs               . #x2FF0)   ; ⿰
+       )
+       ((=gt               . 18141)    ; &GT-18141;
+       (=daikanwa          . 14330)    ; &I-M-14330;
+       )
+       ((=ucs@jis          . #x9F8D)   ; &GT-66672;
+       (=jis-x0208         . #x4E36)   ; &GT-66672; [46-22]
+       (=ks-x1001          . #x5723)   ; &I-K0-5723; [55-03]
+       (=jis-x0213-1       . #x4E36)   ; &I-JX1-4E36; [46-22]
+       (=daikanwa          . 48818)    ; &I-M-48818;
+       ))
+      (=gt               . 18335)      ; &GT-18335;
+      (=gt-pj-11         . #x3D56)     ; &GT-18335; [29-54]
+      (=daikanwa         . 14411)      ; &I-M-14411;
+      )
+     ((ideographic-structure
+       ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER LEFT TO RIGHT")
+       (=ucs               . #x2FF0)   ; ⿰
+       )
+       ((=ucs@unicode      . #x6708)   ; &GT-18140;
+       (=jis-x0208         . #x376E)   ; &GT-18140; [23-78]
+       (=gb2312            . #x5442)   ; &I-G0-5442; [52-34]
+       (=ks-x1001          . #x6A45)   ; &I-K0-6A45; [74-37]
+       (=cns11643-1        . #x454C)   ; &I-C1-454C; [37-44]
+       (=jis-x0213-1       . #x376E)   ; &I-JX1-376E; [23-78]
+       )
+       ((=ucs@jis          . #x9F8D)   ; &GT-66672;
+       (=jis-x0208         . #x4E36)   ; &GT-66672; [46-22]
+       (=ks-x1001          . #x5723)   ; &I-K0-5723; [55-03]
+       (=jis-x0213-1       . #x4E36)   ; &I-JX1-4E36; [46-22]
+       (=daikanwa          . 48818)    ; &I-M-48818;
+       ))
+      (=ucs@jis                  . #x6727)     ; &GT-18334;
+      (=jis-x0208        . #x5B30)     ; &GT-18334; [59-16]
+      (=ks-x1001         . #x5668)     ; &I-K0-5668; [54-72]
+      (=jis-x0213-1      . #x5B30)     ; &I-JX1-5B30; [59-16]
+      (=gt               . 18334)      ; &I-GT-18334;
+      (=gt-pj-1                  . #x5B30)     ; &I-GT-18334; [59-16]
+      )
+     ((ideographic-structure
+       ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER LEFT TO RIGHT")
+       (=ucs               . #x2FF0)   ; ⿰
+       )
+       ((=ucs@unicode      . #x6708)   ; &GT-18140;
+       (=jis-x0208         . #x376E)   ; &GT-18140; [23-78]
+       (=gb2312            . #x5442)   ; &I-G0-5442; [52-34]
+       (=ks-x1001          . #x6A45)   ; &I-K0-6A45; [74-37]
+       (=cns11643-1        . #x454C)   ; &I-C1-454C; [37-44]
+       (=jis-x0213-1       . #x376E)   ; &I-JX1-376E; [23-78]
+       )
+       ((=ucs@unicode      . #x9F8D)   ; &UU+9F8D;
+       (=gb12345           . #x417A)   ; &UU+9F8D; [33-90]
+       ))
+      (=ucs@unicode      . #x6727)     ; &UU+6727;
+      (=gb12345                  . #x6B4A)     ; &UU+6727; [75-42]
+      )
+     ((ideographic-structure
+       ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER LEFT TO RIGHT")
+       (=ucs               . #x2FF0)   ; ⿰
+       )
+       ((=ucs@unicode      . #x6708)   ; &GT-18140;
+       (=jis-x0208         . #x376E)   ; &GT-18140; [23-78]
+       (=gb2312            . #x5442)   ; &I-G0-5442; [52-34]
+       (=ks-x1001          . #x6A45)   ; &I-K0-6A45; [74-37]
+       (=cns11643-1        . #x454C)   ; &I-C1-454C; [37-44]
+       (=jis-x0213-1       . #x376E)   ; &I-JX1-376E; [23-78]
+       )
+       ((=cns11643-1       . #x733E)   ; &C1-733E; [83-30]
+       ))
+      (=cns11643-1       . #x7972)     ; &C1-7972; [89-82]
+      )
+     ((ideographic-structure
+       ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER LEFT TO RIGHT")
+       (=ucs               . #x2FF0)   ; ⿰
+       )
+       ((=gt               . 18141)    ; &GT-18141;
+       (=daikanwa          . 14330)    ; &I-M-14330;
+       )
+       ((=jef-china3       . #x70A4)   ; &JC3-70A4;
+       ))
+      (=shinjigen@1ed    .  3452)      ; &SJG2-3453;
+      (=shinjigen@rev    .  3453)      ; &SJG2-3453;
+      ))
     ))
 (define-char
   '((ideographic-radical . 74) ; ⽉
@@ -1637,39 +1749,72 @@
     (total-strokes      . 20)
     (=ucs              . #x233AE)      ; 𣎮
     (=cns11643-5       . #x6C38)       ; &I-C5-6C38; [76-24]
+    (=daikanwa         . 14412)        ; &I-M-14412;
     ))
 (define-char
-  '((morohashi-daikanwa        42490 0 0)
-    (ideographic-radical@ucs . 173)    ; ⾬
+  '((ideographic-radical@ucs . 173)    ; ⾬
     (ideographic-strokes@ucs . 13)
-    (total-strokes@ucs      . 21)
+    (ideographic-radical@ucs*sources
+     daikanwa cns11643 jis-x0208@1997/b)
     (ideographic-strokes@ucs*sources
-     jis-x0208-1990/b)
+     daikanwa)
     (ideographic-radical@jis/a . 74)   ; ⽉
     (ideographic-strokes@jis/a . 17)
-    (total-strokes@jis/a       . 21)
+    (ideographic-radical@jis/a*sources
+     jis-x0208@1997/a)
     (ideographic-strokes@jis/a*sources
-     jis-x0208-1990/a)
-    (ideographic-radical@jis/b . 173)  ; ⾬
-    (ideographic-strokes@jis/b . 12)
-    (total-strokes@jis/b       . 20)
-    (total-strokes@jis/b*sources
-     jis-x0208-1990)
+     jis-x0208@1997/a)
+    (total-strokes      . 21)
+    (total-strokes*sources cns11643)
     (=ucs              . #x9738)       ; 霸
-    (=jis-x0208                . #x5B31)       ; &I-J90-5B31; [59-17]
-    (=gb2312           . #x3054)       ; &I-G0-3054; [16-52]
-    (=jis-x0213-1      . #x5B31)       ; &I-JX1-5B31; [59-17]
     (=big5             . #xC551)       ; &I-B-C551;
-    (=gt               . 57027)        ; &I-GT-57027;
-    (=gt-pj-1          . #x5B31)       ; &I-GT-57027; [59-17]
-    (=shinjigen@rev    .  3454)        ; 霸
+    (->subsumptive
+     ((ideographic-radical . 173)      ; ⾬
+      (ideographic-strokes . 13)
+      (total-strokes      . 21)
+      (=gt               . 57028)      ; &GT-57028;
+      (=gt-pj-11         . #x3E3B)     ; &GT-57028; [30-27]
+      (=daikanwa         . 42490)      ; &I-M-42490;
+      (=shinjigen@1ed    .  3453)      ; &GT-57028;
+      )
+     ((ideographic-radical@jis/a . 74) ; ⽉
+      (ideographic-strokes@jis/a . 17)
+      (total-strokes@jis/a      . 21)
+      (ideographic-strokes@jis/a*sources
+       jis-x0208@1997/a)
+      (ideographic-radical@jis/b . 173)        ; ⾬
+      (ideographic-strokes@jis/b . 12)
+      (total-strokes@jis/b      . 20)
+      (ideographic-strokes@jis/b*sources
+       jis-x0208@1997/b)
+      (total-strokes@jis/b*sources
+       jis-x0208@1997/b)
+      (=ucs@unicode      . #x9738)     ; &GT-57027;
+      (=jis-x0208        . #x5B31)     ; &GT-57027; [59-17]
+      (=gb2312           . #x3054)     ; &I-G0-3054; [16-52]
+      (=jis-x0213-1      . #x5B31)     ; &I-JX1-5B31; [59-17]
+      (=gt               . 57027)      ; &I-GT-57027;
+      (=gt-pj-1                  . #x5B31)     ; &I-GT-57027; [59-17]
+      (=shinjigen@rev    .  3454)      ; &GT-57027;
+      )
+     ((ideographic-radical . 173)      ; ⾬
+      (ideographic-strokes . 13)
+      (total-strokes      . 21)
+      (=cns11643-1       . #x7B3D)     ; &C1-7B3D; [91-29]
+      ))
     ))
 (define-char
   '((ideographic-radical . 74) ; ⽉
     (ideographic-strokes . 19)
     (total-strokes      . 23)
     (=ucs              . #x233B1)      ; 𣎱
-    (=cns11643-5       . #x756F)       ; &I-C5-756F; [85-79]
+    (->subsumptive
+     ((=daikanwa         . 14413)      ; &M-14413;
+      )
+     ((=ucs@iso                  . #x233B1)    ; &U-000233B1;
+      )
+     ((=cns11643-5       . #x756F)     ; &C5-756F; [85-79]
+      ))
     ))
 (define-char
   '((ideographic-radical . 74) ; ⽉
@@ -1677,4 +1822,5 @@
     (total-strokes      . 24)
     (=ucs              . #x233B2)      ; 𣎲
     (=cns11643-5       . #x775F)       ; &I-C5-775F; [87-63]
+    (=daikanwa         . 14414)        ; &I-M-14414;
     ))