Use `->subsumptive' or `{<-|->}denotational' for some character

definitions.
(M-07542): Add `<-same' for M-07538; add `sound@ja/on'; map to U+FA0C
instead of U+5140.
(U+FA0C): New character.

diff --git a/lisp/utf-2000/Ideograph-R043-Lame.el b/lisp/utf-2000/Ideograph-R043-Lame.el
index a81d7e0..872f8a9 100644 (file)
--- a/lisp/utf-2000/Ideograph-R043-Lame.el
+++ b/lisp/utf-2000/Ideograph-R043-Lame.el
@@ -84,69 +84,120 @@
     (=ucs              . #x21BC2)      ; 𡯂
     ))
 (define-char
-  '((=>ucs             . #x5140)       ; 兀
+  '((=>ucs             . #xFA0C)       ; 兀
     (ideographic-radical . 43) ; ⼪
     (ideographic-strokes . 0)
     (total-strokes      . 3)
+    (<-same
+     ((=cns11643-1       . #x4452)     ; &M-07538; [36-50]
+      (=daikanwa         . 07538)      ; &I-M-07538;
+      ))
+    (<-same*sources
+     goon-shuuin daikanwa)
+    (sound@ja/on       "wAu")
     (=daikanwa         . 07542)        ; &M-07542;
     ))
 (define-char
+  '((=>ucs*            . #x5140)       ; 兀
+    (=>daikanwa                . 07542)        ; &M-07542;
+    (ideographic-radical@unknown . 43) ; ⼪
+    (ideographic-strokes@unknown . 0)
+    (ideographic-radical@unicode . 10) ; ⼉
+    (ideographic-strokes@unicode . 1)
+    (total-strokes      . 3)
+    (<-denotational
+     ((=ucs              . #x5140)     ; 兀
+      ))
+    (<-unknown
+     ((=daikanwa         . 07542)      ; &M-07542;
+      ))
+    (=ucs              . #xFA0C)       ; 兀
+    (=big5             . #xC94A)       ; &I-B-C94A;
+    ))
+(define-char
   '((ideographic-radical . 43) ; ⼪
     (ideographic-strokes . 1)
     (total-strokes      . 4)
-    (shinjigen-2       . 1910)
     (=ucs              . #x5C24)       ; 尤
-    (=jis-x0208                . #x4C60)       ; &I-J90-4C60; [44-64]
-    (=gb2312           . #x5348)       ; &I-G0-5348; [51-40]
-    (=ks-x1001         . #x6956)       ; &I-K0-6956; [73-54]
-    (=cns11643-1       . #x4538)       ; &I-C1-4538; [37-24]
-    (=big5             . #xA4D7)       ; &I-B-A4D7;
-    (=gt               . 09502)        ; &I-GT-09502;
-    (=gt-k             . 00502)        ; &I-GT-K00502;
-    (=gt-pj-1          . #x4C60)       ; &I-GT-09502; [44-64]
-    (=daikanwa         . 07543)        ; &I-M-07543;
+    (->subsumptive
+     ((=daikanwa         . 07543)      ; &M-07543;
+      )
+     ((=gb2312           . #x5348)     ; &G0-5348; [51-40]
+      (=ucs@unicode      . #x5C24)     ; &G0-5348;
+      )
+     ((shinjigen-2       . 1910)
+      (=jis-x0208        . #x4C60)     ; &J90-4C60; [44-64]
+      (=cns11643-1       . #x4538)     ; &I-C1-4538; [37-24]
+      (=big5             . #xA4D7)     ; &I-B-A4D7;
+      (=ucs@jis                  . #x5C24)     ; &J90-4C60;
+      )
+     ((=ks-x1001         . #x6956)     ; &GT-09502; [73-54]
+      (=gt               . 09502)      ; &I-GT-09502;
+      (=gt-k             . 00502)      ; &I-GT-K00502;
+      (=gt-pj-1                  . #x4C60)     ; &I-GT-09502; [44-64]
+      ))
     ))
 (define-char
   '((ideographic-radical . 43) ; ⼪
     (ideographic-strokes . 2)
     (total-strokes      . 5)
     (=ucs              . #x21BC4)      ; 𡯄
-    (=cns11643-5       . #x2165)       ; &I-C5-2165; [01-69]
-    (=daikanwa         . 07544)        ; &I-M-07544;
+    (->subsumptive
+     ((=daikanwa         . 07544)      ; &M-07544;
+      )
+     ((=cns11643-5       . #x2165)     ; &C5-2165; [01-69]
+      (=ucs@iso                  . #x21BC4)    ; &C5-2165;
+      ))
     ))
 (define-char
   '((ideographic-radical . 43) ; ⼪
     (ideographic-strokes . 2)
     (total-strokes      . 5)
     (=ucs              . #x21BCA)      ; 𡯊
-    (=cns11643-6       . #x226A)       ; &I-C6-226A; [02-74]
-    (=daikanwa         . 07545)        ; &I-M-07545;
+    (->subsumptive
+     ((=cns11643-6       . #x226A)     ; &M-07545; [02-74]
+      (=daikanwa         . 07545)      ; &I-M-07545;
+      )
+     ((=ucs@iso                  . #x21BCA)    ; &UU+21BCA;
+      ))
     ))
 (define-char
   '((ideographic-radical . 43) ; ⼪
     (ideographic-strokes . 2)
     (total-strokes      . 5)
     (=ucs              . #x21BC9)      ; 𡯉
-    (=cns11643-6       . #x226B)       ; &I-C6-226B; [02-75]
-    (=daikanwa         . 07546)        ; &I-M-07546;
+    (->subsumptive
+     ((=daikanwa         . 07546)      ; &M-07546;
+      )
+     ((=cns11643-6       . #x226B)     ; &C6-226B; [02-75]
+      (=ucs@iso                  . #x21BC9)    ; &C6-226B;
+      ))
     ))
 (define-char
   '((ideographic-radical . 43) ; ⼪
     (ideographic-strokes . 3)
     (total-strokes      . 6)
     (=ucs              . #x5C25)       ; 尥
-    (=gb2312           . #x5E4D)       ; &I-G0-5E4D; [62-45]
-    (=cns11643-2       . #x2235)       ; &I-C2-2235; [02-21]
     (=big5             . #xC9D5)       ; &I-B-C9D5;
-    (=daikanwa         . 07549)        ; &I-M-07549;
+    (->subsumptive
+     ((=daikanwa         . 07549)      ; &M-07549;
+      )
+     ((=gb2312           . #x5E4D)     ; &C2-2235; [62-45]
+      (=cns11643-2       . #x2235)     ; &I-C2-2235; [02-21]
+      (=ucs@unicode      . #x5C25)     ; &C2-2235;
+      ))
     ))
 (define-char
   '((ideographic-radical . 43) ; ⼪
     (ideographic-strokes . 3)
     (total-strokes      . 6)
     (=ucs              . #x377C)       ; 㝼
-    (=cns11643-4       . #x225D)       ; &I-C4-225D; [02-61]
-    (=daikanwa         . 07550)        ; &I-M-07550;
+    (->subsumptive
+     ((=daikanwa         . 07550)      ; &M-07550;
+      )
+     ((=cns11643-4       . #x225D)     ; &C4-225D; [02-61]
+      (=ucs@unicode      . #x377C)     ; &C4-225D;
+      ))
     ))
 (define-char
   '((=>ucs             . #x5C26)       ; 尦