(GT-K11083): New character.

(U+22371-itaiji-003): New character; use `<-simplified@component' for
U-00022371.
(U-00026989): Use `->subsumptive'; add `ideographic-structure'; add
`sound@ja/on'; add `<-same' for U-00022371.

diff --git a/lisp/utf-2000/Ideograph-R134-Mortar.el b/lisp/utf-2000/Ideograph-R134-Mortar.el
index 6a7728a..6d45c15 100644 (file)
--- a/lisp/utf-2000/Ideograph-R134-Mortar.el
+++ b/lisp/utf-2000/Ideograph-R134-Mortar.el
@@ -1070,6 +1070,21 @@
     ))
 (define-char
   '((ideographic-radical . 134)        ; ⾅
+    (ideographic-strokes . 6)
+    (total-strokes      . 13)
+    (ideographic-structure
+     ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER FULL SURROUND")
+      (=ucs              . #x2FF4)     ; ⿴
+      )
+     ((=ucs              . #x26951)    ; 𦥑
+      )
+     ((=ucs              . #x56DF)     ; 囟
+      ))
+    (=gt-k             . 11083)        ; &GT-K11083;
+    (=gt-pj-k1         . #x382D)       ; &GT-K11083; [24-13]
+    ))
+(define-char
+  '((ideographic-radical . 134)        ; ⾅
     (ideographic-strokes . 7)
     (total-strokes      . 14)
     (=ucs              . #x26973)      ; 𦥳
@@ -1292,6 +1307,23 @@
     ))
 (define-char
   '((ideographic-radical . 134)        ; ⾅
+    (ideographic-strokes . 7)
+    (total-strokes      . 14)
+    (ideographic-structure
+     ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW")
+      (=ucs              . #x2FF1)     ; ⿱
+      )
+     ((=gt-k             . 11083)      ; &GT-K11083;
+      )
+     ((=ucs              . #x4E00)     ; 一
+      ))
+    (=ucs-itaiji-003   . #x22371)      ; &U-i003+22371;
+    (<-simplified@component
+     ((=ucs              . #x22371)    ; 𢍱
+      ))
+    ))
+(define-char
+  '((ideographic-radical . 134)        ; ⾅
     (ideographic-strokes . 8)
     (total-strokes      . 14)
     (=ucs              . #x2697B)      ; 𦥻
@@ -1546,16 +1578,32 @@
   '((ideographic-radical . 134)        ; ⾅
     (ideographic-strokes . 9)
     (total-strokes      . 16)
+    (ideographic-structure
+     ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW")
+      (=ucs              . #x2FF1)     ; ⿱
+      )
+     ((=gt-k             . 11083)      ; &GT-K11083;
+      )
+     ((=ucs              . #x5927)     ; 大
+      ))
+    (sound@ja/on       "seN")
     (=ucs              . #x26989)      ; 𦦉
+    (=cns11643-7       . #x3172)       ; &I-C7-3172; [17-82]
     (=daikanwa         . 30230)        ; &I-M-30230;
-    ))
-(define-char
-  '((=>ucs             . #x26989)      ; 𦦉
-    (morohashi-daikanwa        30230 0 0)
-    (ideographic-radical . 134)        ; ⾅
-    (ideographic-strokes . 9)
-    (total-strokes      . 16)
-    (=cns11643-7       . #x3172)       ; &C7-3172; [17-82]
+    (<-same
+     ((=ucs              . #x22371)    ; 𢍱
+      (=daikanwa         . 09650)      ; &I-M-09650;
+      ))
+    (<-same*sources
+     daikanwa)
+    (->subsumptive
+     ((==daikanwa        . 30230)      ; &g2-M-30230;
+      )
+     ((==ucs@iso         . #x26989)    ; &g2-IU-00026989;
+      )
+     ((==ucs@cns         . #x26989)    ; &g2-CU+26989;
+      (==cns11643-7      . #x3172)     ; &g2-CU+26989; [17-82]
+      ))
     ))
 (define-char
   '((=>ucs             . #x2698C)      ; 𦦌