Reformatted.

[chise/xemacs-chise.git.1] / lisp / utf-2000 / Ideograph-R025-Divination.el

diff --git a/lisp/utf-2000/Ideograph-R025-Divination.el b/lisp/utf-2000/Ideograph-R025-Divination.el
index 29c75b2..2a79223 100644 (file)
--- a/lisp/utf-2000/Ideograph-R025-Divination.el
+++ b/lisp/utf-2000/Ideograph-R025-Divination.el
@@ -146,6 +146,28 @@
     (=big5-cdp         . #x8BF9)       ; &I-CDP-8BF9;
     (=daikanwa         . 02777)        ; &I-M-02777;
     (=cbeta            . 01453)        ; &I-CB01453;
+    (->mistakable
+     ((name              . "CJK RADICAL GRASS THREE")
+      (=ucs              . #x2EC0)     ; ⻀
+      ))
+    (->subsumptive
+     ((==ucs@unicode     . #x535D)     ; &g2-CDP-8BF9;
+      (==cns11643-3      . #x215A)     ; &g2-CDP-8BF9; [01-58]
+      (==big5-cdp        . #x8BF9)     ; &g2-CDP-8BF9;
+      (==daikanwa        . 02777)      ; &g2-CDP-8BF9;
+      (==cbeta           . 01453)      ; &g2-CDP-8BF9;
+      (->subsumptive
+       ((===daikanwa       . 02777)    ; &R-M-02777;
+       )
+       ((===big5-cdp       . #x8BF9)   ; &R-CDP-8BF9;
+       )
+       ((===cns11643-3     . #x215A)   ; &R-C3-215A; [01-58]
+       )
+       ((===ucs@unicode            . #x535D)   ; &R-UU+535D;
+       )
+       ((===cbeta          . 01453)    ; &R-CB01453;
+       ))
+      ))
     ))
 (define-char
   '((ideographic-radical . 25) ; ⼘
@@ -250,6 +272,48 @@
       ))
     ))
 (define-char
+  '((<-denotational@component
+     ((=>ucs@component   . #x239B5)    ; &A-compU+239B5;
+      ))
+    (ideographic-radical . 25) ; ⼘
+    (ideographic-strokes . 2)
+    (total-strokes      . 4)
+    (ideographic-structure
+     ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW")
+      (=ucs              . #x2FF1)     ; ⿱
+      )
+     ((name              . "CJK RADICAL DIVINATION")
+      (=ucs              . #x2E8A)     ; ⺊
+      )
+     ((=ucs              . #x5182)     ; 冂
+      ))
+    (=gt-k             . 00876)        ; &GT-K00876;
+    (=gt-pj-k1         . #x3856)       ; &GT-K00876; [24-54]
+    (->subsumptive
+     ((==gt-k            . 00876)      ; &g2-GT-K00876;
+      (==gt-pj-k1        . #x3856)     ; &g2-GT-K00876; [24-54]
+      )
+     ((ideographic-structure
+       ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW")
+       (=ucs               . #x2FF1)   ; ⿱
+       )
+       ((name              . "CJK RADICAL DIVINATION")
+       (=ucs               . #x2E8A)   ; ⺊
+       )
+       ((=ucs              . #x5196)   ; 冖
+       ))
+      (=gt-k             . 00877)      ; &GT-K00877;
+      (=gt-pj-k1         . #x3D77)     ; &GT-K00877; [29-87]
+      (<-formed@component/connect-below
+       ((=gt-k             . 00876)    ; &GT-K00876;
+       ))
+      (->subsumptive
+       ((==gt-k                    . 00877)    ; &g2-GT-K00877;
+       (==gt-pj-k1         . #x3D77)   ; &g2-GT-K00877; [29-87]
+       ))
+      ))
+    ))
+(define-char
   '((ideographic-radical . 25) ; ⼘
     (ideographic-strokes . 2)
     (total-strokes      . 4)