(U-00021E01): Omit `ideographic-strokes' and `total-strokes'.

(IU+21E01): New character; add `<-denotational' for U-00021E01; unify
BC-88DE.
(U+21E01-var-003): New character; add `<-denotational' for U-00021E01;
add `<-formed' for U+5782; subsume HNG-KHI0031-0 and HNG-KHM0257-0.

diff --git a/lisp/utf-2000/Ideograph-R046-Mountain.el b/lisp/utf-2000/Ideograph-R046-Mountain.el
index 6588d15..e5a251d 100644 (file)
--- a/lisp/utf-2000/Ideograph-R046-Mountain.el
+++ b/lisp/utf-2000/Ideograph-R046-Mountain.el
@@ -4089,6 +4089,27 @@
     ))
 (define-char
   '((ideographic-radical . 46) ; ⼭
+    (=ucs              . #x21E01)      ; 𡸁
+    ))
+(define-char
+  '((<-denotational
+     ((=ucs              . #x21E01)    ; 𡸁
+      ))
+    (ideographic-radical . 46) ; ⼭
+    (ideographic-strokes@ucs . 7)
+    (total-strokes@ucs      . 10)
+    (ideographic-strokes . 6)
+    (total-strokes      . 9)
+    (=ucs@iso          . #x21E01)      ; &CDP-88DE;
+    (=big5-cdp         . #x88DE)       ; &CDP-88DE;
+    (->subsumptive
+     ((==ucs@iso         . #x21E01)    ; &g2-IU-00021E01;
+      )
+     ((==big5-cdp        . #x88DE)     ; &g2-CDP-88DE;
+      ))
+    ))
+(define-char
+  '((ideographic-radical . 46) ; ⼭
     (ideographic-strokes . 7)
     (total-strokes      . 10)
     (=ucs              . #x37C7)       ; 㟇
@@ -5704,10 +5725,23 @@
     (=iso-ir165                . #x2F70)       ; &I-EGB-2F70; [15-80]
     ))
 (define-char
-  '((ideographic-radical . 46) ; ⼭
+  '((<-denotational
+     ((=ucs              . #x21E01)    ; 𡸁
+      ))
+    (ideographic-radical . 46) ; ⼭
     (ideographic-strokes . 7)
     (total-strokes      . 10)
-    (=ucs              . #x21E01)      ; 𡸁
+    (=ucs-var-003      . #x21E01)      ; &U-v003+21E01;
+    (<-formed
+     ((=ucs              . #x5782)     ; 垂
+      ))
+    (<-formed*sources
+     hng)
+    (->subsumptive
+     ((===hng-khi        . 00310)      ; &HNG010-00310;
+      )
+     ((===hng-khm        . 02570)      ; &HNG011-02570;
+      ))
     ))
 (define-char
   '((ideographic-radical . 46) ; ⼭