Add Hanyo-Denshi/KS code points.

[chise/xemacs-chise.git-] / lisp / utf-2000 / Ideograph-R098-Tile.el

diff --git a/lisp/utf-2000/Ideograph-R098-Tile.el b/lisp/utf-2000/Ideograph-R098-Tile.el
index 2829102..66c6c8f 100644 (file)
--- a/lisp/utf-2000/Ideograph-R098-Tile.el
+++ b/lisp/utf-2000/Ideograph-R098-Tile.el
@@ -1015,11 +1015,12 @@
       ))
     (ideographic-radical . 98) ; ⽡
     (ideographic-strokes . 8)
-    (=>>ucs@unicode    . #x7501)       ; &G-UU+7501;
-    (=ucs@unicode      . #x7501)       ; &G-UU+7501;
+    (=>>ucs@unicode    . #x7501)       ; &C3-4277;
+    (=ucs@unicode      . #x7501)       ; &C3-4277;
+    (=cns11643-3       . #x4277)       ; &C3-4277; [34-87]
     (->subsumptive
      ((total-strokes      . 13)
-      (=cns11643-3       . #x4277)     ; &C3-4277; [34-87]
+      (==cns11643-3      . #x4277)     ; &R-C3-4277; [34-87]
       )
      ((total-strokes      . 12)
       (==ucs@unicode     . #x7501)     ; &R-UU+7501;
@@ -2072,8 +2073,20 @@
       (=jis-x0208@1978   . #x3979)     ; &M-21602; [25-89]
       (=ks-x1001         . #x7177)     ; &I-K0-7177; [81-87]
       (=daikanwa         . 21602)      ; &I-M-21602;
+      (->subsumptive
+       ((==daikanwa        . 21602)    ; &R-M-21602;
+       )
+       ((==ucs@ks          . #x7511)   ; &R-K0-7177;
+       (==jis-x0208@1978   . #x3979)   ; &R-K0-7177; [25-89]
+       (==ks-x1001         . #x7177)   ; &R-K0-7177; [81-87]
+       ))
       )
-     ((=ucs@jis/2004     . #x7511)     ; &HD-HG-304C;
+     ((=decomposition@hanyo-denshi
+       ((=ucs              . #x7511)   ; 甑
+       )
+       ((=ucs              . #xE0105)  ; 󠄅
+       ))
+      (=ucs@jis/2004     . #x7511)     ; &HD-HG-304C;
       (=jis-x0213-1@2004  . #x3979)    ; &HD-HG-304C; [25-89]
       (=hanyo-denshi/hg          . #x304C)     ; &I-HD-HG-304C; [16-44]
       ))