(U-00020020): Add `<-ancient' for U+7B95 and UU+7B95.

[chise/xemacs-chise.git] / lisp / utf-2000 / Ideograph-R005-Second.el

diff --git a/lisp/utf-2000/Ideograph-R005-Second.el b/lisp/utf-2000/Ideograph-R005-Second.el
index e42362f..dc0cf2e 100644 (file)
--- a/lisp/utf-2000/Ideograph-R005-Second.el
+++ b/lisp/utf-2000/Ideograph-R005-Second.el
@@ -1062,8 +1062,20 @@
     (=ucs              . #x4E61)       ; 乡
     (=gb2312           . #x4F67)       ; &I-G0-4F67; [47-71]
     (=big5-cdp         . #x8C51)       ; &I-CDP-8C51;
+    (<-original@component
+     ((=ucs              . #x28668)    ; 𨙨
+      ))
     (<-simplified@CN
-     ((=gb12345                  . #x4F67)     ; 鄉 [47-71]
+     ((=ucs@unicode      . #x9109)     ; &C1-6254;
+      (=cns11643-1       . #x6254)     ; &C1-6254; [66-52]
+      (=gb12345                  . #x4F67)     ; &C1-6254; [47-71]
+      ))
+    (->subsumptive
+     ((==big5-cdp        . #x8C51)     ; &g2-CDP-8C51;
+      )
+     ((==ucs@unicode     . #x4E61)     ; &g2-UU+4E61;
+      (==ucs@JP/hanazono  . nil)
+      (==gb2312                  . #x4F67)     ; &g2-UU+4E61; [47-71]
       ))
     ))
 (define-char
@@ -1129,7 +1141,7 @@
     (<-formed*sources
      koseki)
     (<-formed@koseki
-     ((=ucs@iso                  . #x2CF16)    ; &MJ056865;
+     ((=ucs@JP/hanazono          . #x2CF16)    ; &MJ056865;
       (=mj               . 056865)     ; &MJ056865;
       ))
     (->subsumptive
@@ -1160,7 +1172,7 @@
     (ideographic-radical . 5)  ; ⼄
     (ideographic-strokes . 2)
     (total-strokes      . 3)
-    (=ucs@iso          . #x2CF16)      ; &MJ056865;
+    (=ucs@JP/hanazono  . #x2CF16)      ; &MJ056865;
     (=mj               . 056865)       ; &MJ056865;
     (<-formed
      ((=mj               . 006462)     ; &MJ006462;
@@ -1170,14 +1182,15 @@
     (<-formed@component
      ((=ucs              . #x722A)     ; 爪
       ))
+    (<-formed@sideways
+     ((=ucs              . #x722A)     ; 爪
+      ))
     (->subsumptive
-     ((==ucs@iso         . #x2CF16)    ; &g2-MJ056865;
+     ((==ucs@JP/hanazono  . #x2CF16)   ; &g2-MJ056865;
       (==mj              . 056865)     ; &g2-MJ056865;
       (->subsumptive
        ((===mj             . 056865)   ; &R-MJ056865;
        )
-       ((===ucs@iso        . #x2CF16)  ; &R-U-0002CF16;
-       )
        ((===hng-nkk        . 03300)    ; &HNG039-03300;
        ))
       ))