(IU+2C3BE): Add `=>ucs@iwds-1'.

[chise/xemacs-chise.git.1] / lisp / utf-2000 / Ideograph-R101-Use.el

diff --git a/lisp/utf-2000/Ideograph-R101-Use.el b/lisp/utf-2000/Ideograph-R101-Use.el
index e146117..5062441 100644 (file)
--- a/lisp/utf-2000/Ideograph-R101-Use.el
+++ b/lisp/utf-2000/Ideograph-R101-Use.el
@@ -337,6 +337,7 @@
       )
      ((=ucs              . #x6708)     ; 月
       ))
+    (=>ucs@iwds-1      . #x2C3BE)      ; &CDP-8DCB;
     (=ucs@iso          . #x2C3BE)      ; &CDP-8DCB;
     (=big5-cdp         . #x8DCB)       ; &CDP-8DCB;
     (->subsumptive
@@ -368,6 +369,41 @@
     (=big5             . #xCFD9)       ; &I-B-CFD9;
     ))
 (define-char
+  '((<-denotational
+     ((=ucs              . #x2C3BE)    ; 𬎾
+      ))
+    (ideographic-radical . 101)        ; ⽤
+    (ideographic-strokes . 4)
+    (total-strokes      . 9)
+    (ideographic-structure
+     ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER LEFT TO RIGHT")
+      (=ucs              . #x2FF0)     ; ⿰
+      )
+     ((=>ucs@iwds-1      . #x2C3BE)    ; &CDP-8DCB;
+      (=ucs@iso                  . #x2C3BE)    ; &CDP-8DCB;
+      (=big5-cdp         . #x8DCB)     ; &CDP-8DCB;
+      )
+     ((=ucs              . #x4E36)     ; 丶
+      ))
+    (=>mj              . 059914)       ; &A-MJ059914;
+    (->subsumptive
+     ((ideographic-structure
+       ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER SURROUND FROM UPPER LEFT")
+       (=ucs               . #x2FF8)   ; ⿸
+       )
+       ((=>ucs@iwds-1      . #x2C3BE)  ; &CDP-8DCB;
+       (=ucs@iso           . #x2C3BE)  ; &CDP-8DCB;
+       (=big5-cdp          . #x8DCB)   ; &CDP-8DCB;
+       )
+       ((=ucs              . #x4E36)   ; 丶
+       ))
+      (=mj               . 059914)     ; &MJ059914;
+      (->subsumptive
+       ((==mj              . 059914)   ; &g2-MJ059914;
+       ))
+      ))
+    ))
+(define-char
   '((ideographic-radical . 101)        ; ⽤
     (ideographic-strokes . 5)
     (total-strokes      . 10)