(U+5F0D): Apply new conventions for glyph granularity.

[chise/xemacs-chise.git.1] / lisp / utf-2000 / Ideograph-R001-One.el

diff --git a/lisp/utf-2000/Ideograph-R001-One.el b/lisp/utf-2000/Ideograph-R001-One.el
index a883ac8..d829499 100644 (file)
--- a/lisp/utf-2000/Ideograph-R001-One.el
+++ b/lisp/utf-2000/Ideograph-R001-One.el
@@ -2489,12 +2489,8 @@
     (=gb2312           . #x5235)       ; &I-G0-5235; [50-21]
     (=big5-cdp         . #x8B60)       ; &I-CDP-8B60;
     (<-simplified@CN
-     ((=ucs@unicode      . #x696D)     ; &GT-19258;
-      (=jis-x0208        . #x3648)     ; &GT-19258; [22-40]
-      (=ks-x1001         . #x6576)     ; &I-K0-6576; [69-86]
-      (=jis-x0213-1      . #x3648)     ; &I-JX1-3648; [22-40]
-      (=gb12345                  . #x5235)     ; &GT-19258; [50-21]
-      (=daikanwa         . 15170)      ; &I-M-15170;
+     ((=ucs              . #x696D)     ; 業
+      (=gb12345                  . #x5235)     ; 業 [50-21]
       ))
     ))
 (define-char
@@ -2619,6 +2615,15 @@
   '((ideographic-radical . 1)  ; ⼀
     (ideographic-strokes . 4)
     (total-strokes      . 5)
+    (=ucs-itaiji-001   . #x4E1A)       ; &U-i001+4E1A;
+    (<-unknown
+     ((=ucs              . #x4E1A)     ; 业
+      ))
+    ))
+(define-char
+  '((ideographic-radical . 1)  ; ⼀
+    (ideographic-strokes . 4)
+    (total-strokes      . 5)
     (=gt               . 00039)        ; &GT-00039;
     (=gt-pj-9          . #x4228)       ; &GT-00039; [34-08]
     ))
@@ -4299,9 +4304,20 @@
   '((ideographic-radical . 1)  ; ⼀
     (ideographic-strokes . 10)
     (total-strokes      . 11)
+    (ideographic-structure
+     ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER SURROUND FROM UPPER LEFT")
+      (=ucs              . #x2FF8)     ; ⿸
+      )
+     ((=big5-cdp         . #x88BC)     ; &CDP-88BC;
+      )
+     ((=ucs              . #x4E1A)     ; 业
+      ))
     (=gt               . 00092)        ; &GT-00092;
     (=gt-k             . 08114)        ; &I-GT-K08114;
     (=gt-pj-11         . #x487C)       ; &GT-00092; [40-92]
+    (<-formed
+     ((=ucs              . #x865A)     ; 虚
+      ))
     ))
 (define-char
   '((ideographic-radical . 1)  ; ⼀