(U+51F6): Use `->subsumptive'.

[chise/xemacs-chise.git.1] / lisp / utf-2000 / Ideograph-R178-Tanned-Leather.el

diff --git a/lisp/utf-2000/Ideograph-R178-Tanned-Leather.el b/lisp/utf-2000/Ideograph-R178-Tanned-Leather.el
index d3f162d..e0841c3 100644 (file)
--- a/lisp/utf-2000/Ideograph-R178-Tanned-Leather.el
+++ b/lisp/utf-2000/Ideograph-R178-Tanned-Leather.el
@@ -8,9 +8,9 @@
      ((total-strokes      . 9)
       (->subsumptive
        ((=gb12345          . #x4E24)   ; &GT-57812; [46-04]
-       (=gt                . 57812)    ; &GT-57812;
-       (=gt-pj-8           . #x3C71)   ; &GT-57812; [28-81]
-       (=daikanwa          . 43108)    ; &I-M-43108;
+       (=gt                . 57812)    ; &I-GT-57812;
+       (=gt-pj-8           . #x3C71)   ; &I-GT-57812; [28-81]
+       (=daikanwa          . 43108)    ; &GT-57812;
        (=ucs@unicode       . #x97CB)   ; &GT-57812;
        )
        ((=cns11643-1       . #x5374)   ; &C1-5374; [51-84]
@@ -26,12 +26,29 @@
       ))
     ))
 (define-char
+  '((<-denotational
+     ((=ucs              . #x97E6)     ; 韦
+      ))
+    (name              . "CJK RADICAL C-SIMPLIFIED TANNED LEATHER")
+    (general-category  symbol other) ; Informative Category
+    (bidi-category     . "ON")
+    (mirrored          . nil)
+    (=ucs              . #x2ED9)       ; ⻙
+    (<-identical@component
+     ((=ucs              . #x97E6)     ; 韦
+      ))
+    ))
+(define-char
   '((ideographic-radical . 178)        ; ⾱
     (ideographic-strokes . 0)
     (total-strokes      . 4)
     (=ucs              . #x97E6)       ; 韦
     (=gb2312           . #x4E24)       ; &I-G0-4E24; [46-04]
     (=big5-cdp         . #x89D6)       ; &I-CDP-89D6;
+    (<-simplified@CN
+     ((=gb12345                  . #x4E24)     ; &GT-57812; [46-04]
+      (=daikanwa         . 43108)      ; &GT-57812;
+      ))
     ))
 (define-char
   '((ideographic-radical . 178)        ; ⾱