(U+7714): Use `->denotational'.

(U-00025133): Copied from Ideograph-R122-Net.el; add `<-denotational'
for U+7714.
(parent of JSP-4E5F): Use `->subsumptive' to integrate BC-8CB2.
(BC-8CB2): Unify U-0002F944 and C5-2F26.
(U-0002514F): Use `->subsumptive'.
(U-00025149): Unify M-23272.
(M-23275): Unify U-00025154.

diff --git a/lisp/utf-2000/Ideograph-R109-Eye.el b/lisp/utf-2000/Ideograph-R109-Eye.el
index 310f4d7..3a96c93 100644 (file)
--- a/lisp/utf-2000/Ideograph-R109-Eye.el
+++ b/lisp/utf-2000/Ideograph-R109-Eye.el
@@ -1439,22 +1439,41 @@
     (=daikanwa         . 23220)        ; &I-M-23220;
     ))
 (define-char
-  '((=>ucs             . #x7714)       ; 眔
-    (ideographic-radical . 109)        ; ⽬
+  '((ideographic-radical . 109)        ; ⽬
     (ideographic-strokes . 5)
     (total-strokes      . 10)
-    (=jis-x0212                . #x4E5F)       ; &M-23221; [46-63]
-    (=daikanwa         . 23221)        ; &I-M-23221;
-    (=ucs@jis          . #x7714)       ; &M-23221;
+    (=ucs              . #x7714)       ; 眔
     ))
 (define-char
-  '((=>ucs             . #x7714)       ; 眔
-    (morohashi-daikanwa        23221 0 0)
-    (ideographic-radical . 109)        ; ⽬
+  '((ideographic-radical@ucs . 109)    ; ⽬
+    (ideographic-radical@ucs*sources
+     daikanwa cns11643-5 ucs)
+    (ideographic-radical@cns . 122)    ; ⽹
+    (ideographic-radical@cns*sources
+     cns11643-3)
+    (<-denotational
+     ((=ucs              . #x7714)     ; 眔
+      ))
+    (=ucs              . #x25133)      ; 𥄳
+    ))
+(define-char
+  '((ideographic-radical . 109)        ; ⽬
     (ideographic-strokes . 5)
     (total-strokes      . 10)
-    (hanyu-dazidian    4 2915 12)
-    (=big5-cdp         . #x8CB2)       ; &CDP-8CB2;
+    (<-denotational
+     ((=ucs              . #x25133)    ; 𥄳
+      ))
+    (->subsumptive
+     ((=jis-x0212        . #x4E5F)     ; &M-23221; [46-63]
+      (=daikanwa         . 23221)      ; &I-M-23221;
+      (=ucs@iso                  . #x25133)    ; &M-23221;
+      (=ucs@jis                  . #x7714)     ; &M-23221;
+      )
+     ((hanyu-dazidian    4 2915 12)
+      (=ucs              . #x2F944)    ; 𥄳
+      (=cns11643-5       . #x2F26)     ; &I-C5-2F26; [15-06]
+      (=big5-cdp         . #x8CB2)     ; &I-CDP-8CB2;
+      ))
     ))
 (define-char
   '((ideographic-radical . 109)        ; ⽬
@@ -2100,22 +2119,20 @@
   '((ideographic-radical . 109)        ; ⽬
     (ideographic-strokes . 5)
     (total-strokes      . 10)
-    (=daikanwa         . 23271)        ; &M-23271;
-    ))
-(define-char
-  '((=>ucs             . #x25149)      ; 𥅉
-    (ideographic-radical . 109)        ; ⽬
-    (ideographic-strokes . 5)
-    (total-strokes      . 10)
-    (=daikanwa         . 23272)        ; &M-23272;
+    (=ucs              . #x2514F)      ; 𥅏
+    (->subsumptive
+     ((=daikanwa         . 23271)      ; &M-23271;
+      )
+     ((=ucs@iso                  . #x2514F)    ; &UU+2514F;
+      ))
     ))
 (define-char
-  '((morohashi-daikanwa        23272 0 0)
-    (ideographic-radical . 109)        ; ⽬
+  '((ideographic-radical . 109)        ; ⽬
     (ideographic-strokes . 5)
     (total-strokes      . 10)
     (=ucs              . #x25149)      ; 𥅉
     (=cns11643-6       . #x3A2B)       ; &I-C6-3A2B; [26-11]
+    (=daikanwa         . 23272)        ; &I-M-23272;
     ))
 (define-char
   '((ideographic-radical . 109)        ; ⽬
@@ -2133,7 +2150,8 @@
   '((ideographic-radical . 109)        ; ⽬
     (ideographic-strokes . 5)
     (total-strokes      . 10)
-    (=daikanwa         . 23275)        ; &M-23275;
+    (=ucs              . #x25154)      ; 𥅔
+    (=daikanwa         . 23275)        ; &I-M-23275;
     ))
 (define-char
   '((morohashi-daikanwa        23275 1)
@@ -2149,7 +2167,9 @@
   '((ideographic-radical . 109)        ; ⽬
     (ideographic-strokes . 5)
     (total-strokes      . 10)
-    (=ucs              . #x7714)       ; 眔
+    (<-denotational
+     ((=ucs              . #x7714)     ; 眔
+      ))
     (->subsumptive
      ((<-original
        ((=jis-x0212        . #x4E5F)   ; &M-23221; [46-63]
@@ -2179,12 +2199,6 @@
     ))
 (define-char
   '((ideographic-radical . 109)        ; ⽬
-    (ideographic-strokes . 5)
-    (total-strokes      . 10)
-    (=cns11643-5       . #x2F26)       ; &C5-2F26; [15-06]
-    ))
-(define-char
-  '((ideographic-radical . 109)        ; ⽬
     (ideographic-strokes . 6)
     (total-strokes      . 11)
     (=ucs              . #x772D)       ; 眭