(SW-JIGUGE-07226): Add U+8AAA and A-IWDSU+8AAA as corresponding modern

[chise/xemacs-chise.git] / lisp / utf-2000 / Ideograph-R026-Seal.el

diff --git a/lisp/utf-2000/Ideograph-R026-Seal.el b/lisp/utf-2000/Ideograph-R026-Seal.el
index 0eb3e29..290fe1d 100644 (file)
--- a/lisp/utf-2000/Ideograph-R026-Seal.el
+++ b/lisp/utf-2000/Ideograph-R026-Seal.el
@@ -939,6 +939,42 @@
   '((ideographic-radical . 26) ; ⼙
     (ideographic-strokes . 3)
     (total-strokes      . 5)
+    (=ucs              . #x2D174)      ; 𭅴
+    ))
+(define-char
+  '((<-denotational
+     ((=ucs              . #x2D174)    ; 𭅴
+      ))
+    (ideographic-radical . 26) ; ⼙
+    (ideographic-strokes . 3)
+    (total-strokes      . 5)
+    (=ucs@JP/hanazono  . #x2D174)      ; &MJ057106;
+    (=mj               . 057106)       ; &MJ057106;
+    (=koseki           . 032920)       ; &MJ057106;
+    (<-formed
+     ((=ucs              . #x5370)     ; 印
+      )
+     ((=ucs              . #x536C)     ; 卬
+      ))
+    (<-formed$_1*sources
+     mj)
+    (<-formed$_2*sources
+     mj)
+    (<-formed*sources
+     mj)
+    (->subsumptive
+     ((==ucs@JP/hanazono  . #x2D174)   ; &g2-MJ057106;
+      (==mj              . 057106)     ; &g2-MJ057106;
+      (==koseki                  . 032920)     ; &g2-MJ057106;
+      (->subsumptive
+       ((===mj             . 057106)   ; &R-MJ057106;
+       ))
+      ))
+    ))
+(define-char
+  '((ideographic-radical . 26) ; ⼙
+    (ideographic-strokes . 3)
+    (total-strokes      . 5)
     (ideographic-structure
      ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW")
       (=ucs              . #x2FF1)     ; ⿱
@@ -4394,6 +4430,21 @@
     (ideographic-strokes . 11)
     (total-strokes      . 13)
     (ideographic-structure
+     ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER LEFT TO RIGHT")
+      (=ucs              . #x2FF0)     ; ⿰
+      )
+     ((=>ucs@iwds-1      . #x9B5A)     ; &A-IWDSU+9B5A;
+      (=>iwds-1                  .  0322)      ; &A-IWDSU+9B5A;
+      )
+     ((=ucs              . #x5369)     ; 卩
+      ))
+    (=>gt-k            . 10476)        ; &A-GT-K10476;
+    ))
+(define-char
+  '((ideographic-radical . 26) ; ⼙
+    (ideographic-strokes . 11)
+    (total-strokes      . 13)
+    (ideographic-structure
      ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW")
       (=ucs              . #x2FF1)     ; ⿱
       )
@@ -4407,6 +4458,28 @@
       ))
     ))
 (define-char
+  '((<-denotational
+     ((=>gt-k            . 10476)      ; &A-GT-K10476;
+      ))
+    (ideographic-radical . 26) ; ⼙
+    (ideographic-strokes . 11)
+    (total-strokes      . 13)
+    (ideographic-structure
+     ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER LEFT TO RIGHT")
+      (=ucs              . #x2FF0)     ; ⿰
+      )
+     ((=ucs              . #x9B5A)     ; 魚
+      )
+     ((=ucs              . #x5369)     ; 卩
+      ))
+    (=gt-k             . 10476)        ; &GT-K10476;
+    (=gt-pj-k1         . #x3F42)       ; &GT-K10476; [31-34]
+    (->subsumptive
+     ((==gt-k            . 10476)      ; &g2-GT-K10476;
+      (==gt-pj-k1        . #x3F42)     ; &g2-GT-K10476; [31-34]
+      ))
+    ))
+(define-char
   '((ideographic-radical . 26) ; ⼙
     (ideographic-strokes . 12)
     (total-strokes      . 14)