Add glyph-images of HNG-KHI.

[chise/xemacs-chise.git.1] / lisp / utf-2000 / Ideograph-R015-Ice.el

diff --git a/lisp/utf-2000/Ideograph-R015-Ice.el b/lisp/utf-2000/Ideograph-R015-Ice.el
index b2d7458..5baa60f 100644 (file)
--- a/lisp/utf-2000/Ideograph-R015-Ice.el
+++ b/lisp/utf-2000/Ideograph-R015-Ice.el
@@ -252,6 +252,40 @@
       ))
     (->vulgar*sources
      zhengzitong daikanwa)
+    (->subsumptive
+     ((=decomposition@cid
+       ((=ucs              . #x51B0)   ; 冰
+       )
+       ((=ucs              . #xE0100)  ; 󠄀
+       ))
+      (==ucs@unicode     . #x51B0)     ; &g2-AJ1-04237;
+      (==adobe-japan1-0          . 04237)      ; &g2-AJ1-04237;
+      (==gb2312                  . #x3179)     ; &g2-AJ1-04237; [17-89]
+      (==jis-x0208       . #x5156)     ; &g2-AJ1-04237; [49-54]
+      (==cns11643-1      . #x4743)     ; &g2-AJ1-04237; [39-35]
+      (==jis-x0213-1     . #x5156)     ; &g2-AJ1-04237; [49-54]
+      (==gt              . 02139)      ; &g2-AJ1-04237;
+      (==gt-k            . 01713)      ; &g2-AJ1-04237;
+      (==daikanwa        . 01612)      ; &g2-AJ1-04237;
+      (==shinjigen       .  4052)      ; &g2-AJ1-04237;
+      (->subsumptive
+       ((===daikanwa       . 01612)    ; &R-M-01612;
+       )
+       ((===jis-x0208      . #x5156)   ; &R-J0-5156; [49-54]
+       (===jis-x0213-1     . #x5156)   ; &R-J0-5156; [49-54]
+       )
+       ((===adobe-japan1-0  . 04237)   ; &R-AJ1-04237;
+       )
+       ((===cns11643-1     . #x4743)   ; &R-C1-4743; [39-35]
+       )
+       ((===gt             . 02139)    ; &R-GT-02139;
+       (===gt-k            . 01713)    ; &R-GT-02139;
+       )
+       ((===ucs@unicode            . #x51B0)   ; &R-UU+51B0;
+       ))
+      )
+     ((===hng-kak        . 00230)      ; &HNG017-00230;
+      ))
     ))
 (define-char
   '((ideographic-radical . 15) ; ⼎
@@ -3994,11 +4028,6 @@
     (ideographic-radical . 15) ; ⼎
     (ideographic-strokes . 10)
     (total-strokes      . 14)
-    (=decomposition@cid
-     ((=ucs              . #x51DE)     ; 凞
-      )
-     ((=ucs              . #xE0101)    ; 󠄁
-      ))
     (ideographic-structure
      ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW")
       (=ucs              . #x2FF1)     ; ⿱
@@ -4020,7 +4049,12 @@
     (=adobe-japan1-5   . 20307)        ; &AJ1-20307;
     (=jis-x0213-1      . #x775A)       ; &I-JX1-775A; [87-58]
     (->subsumptive
-     ((==ucs@jis         . #xFA15)     ; &g2-AJ1-20307;
+     ((=decomposition@cid
+       ((=ucs              . #x51DE)   ; 凞
+       )
+       ((=ucs              . #xE0101)  ; 󠄁
+       ))
+      (==ucs@jis         . #xFA15)     ; &g2-AJ1-20307;
       (==adobe-japan1-5          . 20307)      ; &g2-AJ1-20307;
       (==jis-x0213-1     . #x775A)     ; &g2-AJ1-20307; [87-58]
       (->subsumptive