(U+51FF): Apply new conventions for glyph granularity.

diff --git a/lisp/utf-2000/Ideograph-R017-Open-Box.el b/lisp/utf-2000/Ideograph-R017-Open-Box.el
index 3b944e1..45d236b 100644 (file)
--- a/lisp/utf-2000/Ideograph-R017-Open-Box.el
+++ b/lisp/utf-2000/Ideograph-R017-Open-Box.el
@@ -1937,6 +1937,21 @@
     ))
 (define-char
   '((ideographic-radical . 17) ; ⼐
+    (ideographic-structure
+     ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER SURROUND FROM BELOW")
+      (=ucs              . #x2FF6)     ; ⿶
+      )
+     ((=ucs              . #x51F5)     ; 凵
+      )
+     ((=ucs              . #x4E35)     ; 丵
+      ))
+    (=ucs              . #x51FF)       ; 凿
+    ))
+(define-char
+  '((<-denotational
+     ((=ucs              . #x51FF)     ; 凿
+      ))
+    (ideographic-radical . 17) ; ⼐
     (ideographic-strokes . 10)
     (total-strokes      . 12)
     (hanyu-dazidian    1 310 2)
@@ -1946,11 +1961,25 @@
       )
      ((=ucs              . #x51F5)     ; 凵
       )
-     ((=ucs              . #x4E35)     ; 丵
+     ((=ucs@unicode      . #x4E35)     ; &AJ1-21075;
+      (=adobe-japan1-6   . 21075)      ; &AJ1-21075;
+      ))
+    (=ucs@unicode      . #x51FF)       ; &G0-5464;
+    (=gb2312           . #x5464)       ; &G0-5464; [52-68]
+    (<-simplified@CN
+     ((=ucs@unicode      . #x947F)     ; &AJ1-07059;
+      (=adobe-japan1-0   . 07059)      ; &AJ1-07059;
+      (=gb12345                  . #x5464)     ; &AJ1-07059; [52-68]
+      ))
+    (->subsumptive
+     ((==ucs@unicode     . #x51FF)     ; &g2-UU+51FF;
+      (==gb2312                  . #x5464)     ; &g2-UU+51FF; [52-68]
+      (->subsumptive
+       ((===ucs@unicode            . #x51FF)   ; &R-UU+51FF;
+       )
+       ((=hanziku-1        . #xE5DE)   ; &HZK01-E5DE;
+       ))
       ))
-    (=ucs              . #x51FF)       ; 凿
-    (=gb2312           . #x5464)       ; &I-G0-5464; [52-68]
-    (=hanziku-1                . #xE5DE)       ; &I-HZK01-E5DE;
     ))
 (define-char
   '((ideographic-radical . 17) ; ⼐