(HNG-KAR0470-0): New character; use `<-denotational' for U+9F9C.

[chise/xemacs-chise.git-] / lisp / utf-2000 / Ideograph-R037-Big.el

diff --git a/lisp/utf-2000/Ideograph-R037-Big.el b/lisp/utf-2000/Ideograph-R037-Big.el
index f4bbec4..d8ee9a6 100644 (file)
--- a/lisp/utf-2000/Ideograph-R037-Big.el
+++ b/lisp/utf-2000/Ideograph-R037-Big.el
@@ -1105,10 +1105,22 @@
     (=ucs@unicode      . #x4E54)       ; &C3-2345;
     (=gb2312           . #x4747)       ; &C3-2345; [39-39]
     (=cns11643-3       . #x2345)       ; &I-C3-2345; [03-37]
-    (=hanziku-1                . #xABD7)       ; &I-HZK01-ABD7;
     (<-simplified@CN
-     ((=ucs              . #x55AC)     ; 喬
-      (=gb12345                  . #x4747)     ; 喬 [39-39]
+     ((=ucs@unicode      . #x55AC)     ; &AJ1-01700;
+      (=adobe-japan1-0   . 01700)      ; &AJ1-01700;
+      (=gb12345                  . #x4747)     ; &AJ1-01700; [39-39]
+      ))
+    (->subsumptive
+     ((==ucs@unicode     . #x4E54)     ; &g2-UU+4E54;
+      (==gb2312                  . #x4747)     ; &g2-UU+4E54; [39-39]
+      (==cns11643-3      . #x2345)     ; &g2-UU+4E54; [03-37]
+      (->subsumptive
+       ((===cns11643-3     . #x2345)   ; &R-C3-2345; [03-37]
+       )
+       ((===ucs@unicode            . #x4E54)   ; &R-UU+4E54;
+       )
+       ((=hanziku-1        . #xABD7)   ; &HZK01-ABD7;
+       ))
       ))
     ))
 (define-char
@@ -1255,6 +1267,23 @@
     ))
 (define-char
   '((ideographic-radical . 37) ; ⼤
+    (ideographic-strokes . 3)
+    (total-strokes      . 6)
+    (ideographic-structure
+     ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW")
+      (=ucs              . #x2FF1)     ; ⿱
+      )
+     ((=ucs              . #x5927)     ; 大
+      )
+     ((=ucs              . #x5DFE)     ; 巾
+      ))
+    (=ucs              . #x2BBDC)      ; 𫯜
+    (->subsumptive
+     ((==ucs@iso         . #x2BBDC)    ; &g2-IU-0002BBDC;
+      ))
+    ))
+(define-char
+  '((ideographic-radical . 37) ; ⼤
     (ideographic-strokes . 4)
     (total-strokes      . 7)
     (hanyu-dazidian    1 529 6)
@@ -3173,6 +3202,12 @@
     (->subsumptive
      ((==gt              . 07490)      ; &g2-GT-07490;
       (==gt-k            . 06722)      ; &g2-GT-07490;
+      )
+     ((=gt-k             . 06723)      ; &GT-K06723;
+      (=gt-pj-k1         . #x3465)     ; &GT-K06723; [20-69]
+      (<-formed@component/connect-right
+       ((=gt               . 07490)    ; &GT-07490;
+       ))
       ))
     ))
 (define-char