(U+570E): Use "貟" instead of "⿱厶貝" in `ideographic-structure'; add

[chise/xemacs-chise.git-] / lisp / utf-2000 / Ideograph-R085-Water.el

diff --git a/lisp/utf-2000/Ideograph-R085-Water.el b/lisp/utf-2000/Ideograph-R085-Water.el
index 5ec46c3..fec45cf 100644 (file)
--- a/lisp/utf-2000/Ideograph-R085-Water.el
+++ b/lisp/utf-2000/Ideograph-R085-Water.el
@@ -8805,6 +8805,15 @@
     (sound@ja/on/name  "syAu" "yAu")
     (=ucs              . #x23D0E)      ; 𣴎
     (=jis-x0213-2      . #x7475)       ; &I-JX2-7475; [84-85]
+    (->subsumptive
+     ((==ucs@iso         . #x23D0E)    ; &g2-JX2-7475;
+      (==jis-x0213-2     . #x7475)     ; &g2-JX2-7475; [84-85]
+      (->subsumptive
+       ((===jis-x0213-2            . #x7475)   ; &R-JX2-7475; [84-85]
+       )
+       ((===ucs@iso        . #x23D0E)  ; &R-U-00023D0E;
+       ))
+      ))
     ))
 (define-char
   '((ideographic-radical . 85) ; ⽔
@@ -17757,11 +17766,8 @@
       )
      ((=ucs              . #x6C35)     ; 氵
       )
-     ((=ucs@cns                  . #x82F1)     ; &HD-IB-3B76;
-      (=ucs@ks           . #x82F1)     ; &HD-IB-3B76;
-      (=ks-x1001         . #x6748)     ; &HD-IB-3B76; [71-40]
-      (=cns11643-1       . #x5341)     ; &I-C1-5341; [51-33]
-      (=daikanwa         . 30808)      ; &I-M-30808;
+     ((=ucs@cns                  . #x82F1)     ; &MJ021701;
+      (=mj               . 021701)     ; &I-MJ021701;
       ))
     (=ucs@cns          . #x6E36)       ; &MJ015576;
     (=mj               . 015576)       ; &MJ015576;
@@ -17806,8 +17812,8 @@
       )
      ((=ucs              . #x6C35)     ; 氵
       )
-     ((=ucs@unicode      . #x82F1)     ; &AJ1-01267;
-      (=adobe-japan1-0   . 01267)      ; &AJ1-01267;
+     ((=ucs@unicode      . #x82F1)     ; &MJ021700;
+      (=mj               . 021700)     ; &I-MJ021700;
       ))
     (=ucs@unicode      . #x6E36)       ; &MJ015575;
     (=mj               . 015575)       ; &MJ015575;