(U+7C7B): Add `<-denotational' for BUCS+985E.

(UU+7C7B): Add `<-simplified@CN' for UU+985E.
(U+7C7B-itaiji-001): New character; use `<-denotational' for
BUCS+985E; use `<-formed' for U+7C7B.

diff --git a/lisp/utf-2000/Ideograph-R119-Rice.el b/lisp/utf-2000/Ideograph-R119-Rice.el
index e03d1d9..ef2adbe 100644 (file)
--- a/lisp/utf-2000/Ideograph-R119-Rice.el
+++ b/lisp/utf-2000/Ideograph-R119-Rice.el
@@ -244,7 +244,10 @@
       ))
     ))
 (define-char
-  '((ideographic-radical . 119)        ; ⽶
+  '((<-denotational
+     ((==>ucs@bucs       . #x985E)     ; &BUCS+985E;
+      ))
+    (ideographic-radical . 119)        ; ⽶
     (=ucs              . #x7C7B)       ; 类
     ))
 (define-char
@@ -275,6 +278,12 @@
       ))
     (<-same*sources
      wuyin-pianhai daikanwa)
+    (<-simplified@CN
+     ((=ucs@unicode      . #x985E)     ; &AJ1-13396;
+      (=ucs@jis                  . #xF9D0)     ; &AJ1-13396;
+      (=adobe-japan1-4   . 13396)      ; &AJ1-13396;
+      (=gb12345                  . #x4060)     ; &AJ1-13396; [32-64]
+      ))
     (->subsumptive
      ((==daikanwa        . 26848)      ; &g2-M-26848;
       )
@@ -732,6 +741,26 @@
       ))
     ))
 (define-char
+  '((<-denotational
+     ((==>ucs@bucs       . #x985E)     ; &BUCS+985E;
+      ))
+    (ideographic-radical . 119)        ; ⽶
+    (ideographic-strokes . 3)
+    (total-strokes      . 9)
+    (ideographic-structure
+     ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW")
+      (=ucs              . #x2FF1)     ; ⿱
+      )
+     ((=ucs              . #x7C73)     ; 米
+      )
+     ((=gt-k             . 00264)      ; &GT-K00264;
+      ))
+    (=ucs-itaiji-001   . #x7C7B)       ; &U-i001+7C7B;
+    (<-formed
+     ((=ucs              . #x7C7B)     ; 类
+      ))
+    ))
+(define-char
   '((ideographic-radical . 119)        ; ⽶
     (ideographic-strokes . 4)
     (total-strokes      . 10)