(BC-8B77): Unify U+9FB6.

[chise/xemacs-chise.git.1] / lisp / utf-2000 / Ideograph-R100-Life.el

diff --git a/lisp/utf-2000/Ideograph-R100-Life.el b/lisp/utf-2000/Ideograph-R100-Life.el
index 7658c9c..1072802 100644 (file)
--- a/lisp/utf-2000/Ideograph-R100-Life.el
+++ b/lisp/utf-2000/Ideograph-R100-Life.el
@@ -25,27 +25,31 @@
     ))
 (define-char
   '((ideographic-radical . 100)        ; ⽣
+    (ideographic-radical@unicode . 32) ; ⼟
+    (ideographic-strokes@unicode . 1)
     (ideographic-strokes . 0)
     (total-strokes      . 4)
     (<-ideographic-component-forms
      ((=ucs              . #x751F)     ; 生
-      )
-     ((=gt-k             . 00586)      ; &I-GT-K00586;
       ))
-    (=gt-k             . 00587)        ; &GT-K00587;
-    (=gt-pj-k1         . #x347B)       ; &GT-K00587; [20-91]
+    (=ucs              . #x9FB6)       ; 龶
+    (=big5-cdp         . #x8B77)       ; &I-CDP-8B77;
+    (=gt-k             . 00586)        ; &I-GT-K00586;
+    (=gt-pj-k1         . #x323F)       ; 龶 [18-31]
+    (=jef-china3       . #x72FD)       ; &I-JC3-72FD;
     ))
 (define-char
-  '((ideographic-radical . 100)        ; ⽣
+  '((=>ucs             . #x9FB6)       ; 龶
+    (ideographic-radical . 100)        ; ⽣
     (ideographic-strokes . 0)
     (total-strokes      . 4)
     (<-ideographic-component-forms
      ((=ucs              . #x751F)     ; 生
+      )
+     ((=ucs              . #x9FB6)     ; 龶
       ))
-    (=big5-cdp         . #x8B77)       ; &CDP-8B77;
-    (=gt-k             . 00586)        ; &I-GT-K00586;
-    (=gt-pj-k1         . #x323F)       ; &CDP-8B77; [18-31]
-    (=jef-china3       . #x72FD)       ; &I-JC3-72FD;
+    (=gt-k             . 00587)        ; &GT-K00587;
+    (=gt-pj-k1         . #x347B)       ; &GT-K00587; [20-91]
     ))
 (define-char
   '((ideographic-radical . 100)        ; ⽣