(M070816): New character.

(M-02776): Unify CB-00855.
(U+535D): Add `ideographic-structure'; unify CB-01453.
(J0-5246): Add `ideographic-structure'.
(U+535E): Use char-spec instead of char-ref as the operator in
`ideographic-structure'.
(M-02820): Add `ideographic-structure'; unify CB-05348.
(U+5368): Add `ideographic-structure'.

diff --git a/lisp/utf-2000/Ideograph-R025-Divination.el b/lisp/utf-2000/Ideograph-R025-Divination.el
index f2496f2..c51fe8a 100644 (file)
--- a/lisp/utf-2000/Ideograph-R025-Divination.el
+++ b/lisp/utf-2000/Ideograph-R025-Divination.el
@@ -35,14 +35,31 @@
   '((ideographic-radical . 25) ; ⼘
     (ideographic-strokes . 0)
     (total-strokes      . 2)
+    (mojikyo           . 070816)       ; ������
+    ))
+(define-char
+  '((ideographic-radical . 25) ; ⼘
+    (ideographic-strokes . 1)
+    (total-strokes      . 3)
     (ideograph-daikanwa . 02776)       ; �����
+    (ideograph-cbeta   . 00855)        ; �����
     ))
 (define-char
   '((ideographic-radical . 25) ; ⼘
     (ideographic-strokes . 2)
     (total-strokes      . 4)
+    (ideographic-structure
+     ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER LEFT TO RIGHT")
+      (ucs               . #x2FF0)     ; ⿰
+      )
+     ((mojikyo           . 070816)     ; ������
+      )
+     ((name              . "CJK RADICAL DIVINATION")
+      (ucs               . #x2E8A)     ; ⺊
+      ))
     (chinese-cns11643-3 . #x215A)      ; �����
     (ideograph-daikanwa . 02777)       ; �����
+    (ideograph-cbeta   . 01453)        ; �����
     (ucs               . #x535D)       ; 卝
     ))
 (define-char
@@ -50,6 +67,14 @@
     (ideographic-radical . 25) ; ⼘
     (ideographic-strokes . 2)
     (total-strokes      . 4)
+    (ideographic-structure
+     ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW")
+      (ucs               . #x2FF1)     ; ⿱
+      )
+     ((ucs               . #x4E28)     ; 丨
+      )
+     ((ucs               . #x4E0B)     ; 下
+      ))
     (shinjigen-1       . 835)
     (shinjigen-2       . 835)
     (japanese-jisx0208-1978    . #x5246)       ; �����
@@ -64,10 +89,8 @@
     (ideographic-strokes . 2)
     (total-strokes      . 4)
     (ideographic-structure
-     (:cdp-combinator  2
-      :char    ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW")
-                (ucs                . #x2FF1)  ; ⿱
-                )
+     ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW")
+      (ucs               . #x2FF1)     ; ⿱
       )
      ((chinese-big5-cdp          . #x8B41)     ; ������
       (ucs               . #x4E36)     ; 丶
@@ -512,15 +535,37 @@
     (ideographic-radical . 25) ; ⼘
     (ideographic-strokes . 9)
     (total-strokes      . 11)
+    (ideographic-structure
+     ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW")
+      (ucs               . #x2FF1)     ; ⿱
+      )
+     ((name              . "CJK RADICAL DIVINATION")
+      (ucs               . #x2E8A)     ; ⺊
+      )
+     ((japanese-jisx0208-1978    . #x5325)     ; �����
+      (japanese-jisx0208         . #x5325)     ; �����
+      (chinese-cns11643-2        . #x294B)     ; �����
+      (ideograph-daikanwa        . 03573)      ; �����
+      ))
     (korean-ksc5601    . #x6059)       ; �����
     (chinese-cns11643-4 . #x3064)      ; �����
     (ideograph-daikanwa . 02820)       ; �����
+    (ideograph-cbeta   . 05348)        ; �����
     ))
 (define-char
   '((morohashi-daikanwa        2820 0 3)
     (ideographic-radical . 25) ; ⼘
     (ideographic-strokes . 8)
     (total-strokes      . 10)
+    (ideographic-structure
+     ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW")
+      (ucs               . #x2FF1)     ; ⿱
+      )
+     ((name              . "CJK RADICAL DIVINATION")
+      (ucs               . #x2E8A)     ; ⺊
+      )
+     ((ucs               . #x54BC)     ; 咼
+      ))
     (ucs               . #x5368)       ; 卨
     ))
 (define-char