(U+51A4): Add `ideographic-structure'.

(U-0002F818): Add `=ucs@jis/2004' for J2004U+51A4.
(abstract glyph of JX1-514D): Add `=>>jis-x0213-1@2000'.

diff --git a/lisp/utf-2000/Ideograph-R014-Cover.el b/lisp/utf-2000/Ideograph-R014-Cover.el
index 004f9c1..ead5f55 100644 (file)
--- a/lisp/utf-2000/Ideograph-R014-Cover.el
+++ b/lisp/utf-2000/Ideograph-R014-Cover.el
@@ -600,6 +600,14 @@
     ))
 (define-char
   '((ideographic-radical . 14) ; ⼍
+    (ideographic-structure
+     ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW")
+      (=ucs              . #x2FF1)     ; ⿱
+      )
+     ((=ucs              . #x5196)     ; 冖
+      )
+     ((=ucs              . #x5154)     ; 兔
+      ))
     (=ucs              . #x51A4)       ; 冤
     (=>jis-x0208       . #x514D)       ; 冤 [49-45]
     (=>jis-x0213-1     . #x514D)       ; 冤 [49-45]
@@ -622,6 +630,7 @@
      ((=ucs              . #x2F80F)    ; 兔
       ))
     (=ucs              . #x2F818)      ; 冤
+    (=ucs@jis/2004     . #x51A4)       ; 冤
     (=jis-x0208@1978   . #x514D)       ; &I-J78-514D; [49-45]
     (=cns11643-6       . #x3544)       ; &I-C6-3544; [21-36]
     (=jis-x0213-1@2004 . #x514D)       ; &I-JX3-514D; [49-45]
@@ -633,6 +642,7 @@
      ((=ucs              . #x51A4)     ; 冤
       ))
     (ideographic-radical . 14) ; ⼍
+    (=>>jis-x0213-1@2000 . #x514D)     ; &aJX1-514D; [49-45]
     (->subsumptive
      ((ideographic-strokes . 8)
       (total-strokes      . 10)