- Add some Hanyo-Denshi/JA code points.

[chise/xemacs-chise.git-] / lisp / utf-2000 / Ideograph-R058-Snout.el

diff --git a/lisp/utf-2000/Ideograph-R058-Snout.el b/lisp/utf-2000/Ideograph-R058-Snout.el
index 2b165c8..fe65f44 100644 (file)
--- a/lisp/utf-2000/Ideograph-R058-Snout.el
+++ b/lisp/utf-2000/Ideograph-R058-Snout.el
@@ -59,6 +59,23 @@
   '((<-denotational
      ((=ucs              . #x5F50)     ; 彐
       ))
+    (name              . "CJK RADICAL SNOUT TWO")
+    (general-category  symbol other) ; Informative Category
+    (bidi-category     . "ON")
+    (mirrored          . nil)
+    (ideographic-radical . 58) ; ⼹
+    (ideographic-strokes . 0)
+    (total-strokes      . 3)
+    (=ucs              . #x2E95)       ; ⺕
+    (=>ucs@unicode     . #x5F50)       ; ⺕
+    (=>big5-cdp                . #x8BAB)       ; ⺕
+    (=>gt              . 67403)        ; ⺕
+    ))
+(define-char
+  '((<-denotational
+     ((name              . "CJK RADICAL SNOUT TWO")
+      (=ucs              . #x2E95)     ; ⺕
+      ))
     (ideographic-radical . 58) ; ⼹
     (ideographic-strokes . 0)
     (total-strokes      . 3)
@@ -89,38 +106,26 @@
     ))
 (define-char
   '((<-denotational
-     ((=ucs              . #x5F50)     ; 彐
+     ((name              . "CJK RADICAL SNOUT TWO")
+      (=ucs              . #x2E95)     ; ⺕
       ))
-    (=>ucs             . #x2E95)       ; ⺕
     (ideographic-radical . 58) ; ⼹
     (ideographic-strokes . 0)
     (total-strokes      . 3)
-    (=gt-k             . 00266)        ; &GT-K00266;
-    (=gt-pj-k1         . #x3663)       ; &GT-K00266; [22-67]
-    ))
-(define-char
-  '((<-denotational
-     ((=gt-k             . 00266)      ; &GT-K00266;
-      ))
-    (name              . "CJK RADICAL SNOUT TWO")
-    (general-category  symbol other) ; Informative Category
-    (bidi-category     . "ON")
-    (mirrored          . nil)
-    (ideographic-radical . 58) ; ⼹
-    (ideographic-strokes . 0)
-    (total-strokes      . 3)
-    (=ucs              . #x2E95)       ; ⺕
-    (=ucs@unicode      . #x5F50)       ; ⺕
-    (=gb2312           . #x6566)       ; &I-G0-6566; [69-70]
-    ))
-(define-char
-  '((<-denotational
+    (=ucs@unicode      . #x5F50)       ; &G0-6566;
+    (=ucs@JP/hanazono  . nil)
+    (=gb2312           . #x6566)       ; &G0-6566; [69-70]
+    (=big5-cdp         . #x897C)       ; &I-CDP-897C;
+    (->subsumptive
+     ((==ucs@unicode     . #x5F50)     ; &g2-UU+5F50;
+      (==ucs@JP/hanazono  . nil)
+      (==gb2312                  . #x6566)     ; &g2-UU+5F50; [69-70]
+      )
      ((=gt-k             . 00266)      ; &GT-K00266;
+      (=gt-pj-k1         . #x3663)     ; &GT-K00266; [22-67]
+      )
+     ((==big5-cdp        . #x897C)     ; &g2-CDP-897C;
       ))
-    (ideographic-radical . 58) ; ⼹
-    (ideographic-strokes . 0)
-    (total-strokes      . 3)
-    (=big5-cdp         . #x897C)       ; &CDP-897C;
     ))
 (define-char
   '((ideographic-radical . 58) ; ⼹
@@ -557,7 +562,8 @@
        ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW")
        (=ucs               . #x2FF1)   ; ⿱
        )
-       ((=ucs              . #x5F51)   ; 彑
+       ((name              . "CJK RADICAL SNOUT ONE")
+       (=ucs               . #x2E94)   ; ⺔
        )
        ((==daikanwa        . 36336)    ; &g2-M-36336;
        ))
@@ -603,7 +609,8 @@
        ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW")
        (=ucs               . #x2FF1)   ; ⿱
        )
-       ((=ucs              . #x5F51)   ; 彑
+       ((name              . "CJK RADICAL SNOUT ONE")
+       (=ucs               . #x2E94)   ; ⺔
        )
        ((==ucs@iso         . #x27C28)  ; &g2-IU-00027C28;
        ))
@@ -617,11 +624,33 @@
        )
        ((=ucs              . #x5F51)   ; 彑
        )
-       ((==ucs@cns         . #x27C28)  ; &g2-CDP-8BC9;
-       (==cns11643-5       . #x2329)   ; &g2-CDP-8BC9; [03-09]
+       ((=>>ucs@cns        . #x27C28)  ; &G-CDP-8BC9;
+       ))
+      (=mj               . 011235)     ; &MJ011235;
+      (=hanyo-denshi/ft          . #x356D)     ; &I-HD-FT-356D; [21-77]
+      (->subsumptive
+       ((ideographic-structure
+        ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW")
+         (=ucs               . #x2FF1) ; ⿱
+         )
+        ((name               . "CJK RADICAL SNOUT ONE")
+         (=ucs               . #x2E94) ; ⺔
+         )
+        ((==ucs@cns          . #x27C28)        ; &g2-CDP-8BC9;
+         (==cns11643-5       . #x2329) ; &g2-CDP-8BC9; [03-09]
+         ))
+       (==ucs@cns          . #x5F56)   ; &g2-MJ011235;
+       (==mj               . 011235)   ; &g2-MJ011235;
+       (==cns11643-2       . #x2A3E)   ; &g2-MJ011235; [10-30]
+       (==hanyo-denshi/ft  . #x356D)   ; &g2-MJ011235; [21-77]
+       (->subsumptive
+        ((===hanyo-denshi/ft . #x356D) ; &R-HD-FT-356D; [21-77]
+         )
+        ((===mj              . 011235) ; &R-MJ011235;
+         )
+        ((===cns11643-2      . #x2A3E) ; &R-C2-2A3E; [10-30]
+         ))
        ))
-      (==ucs@cns         . #x5F56)     ; &g2-CU+5F56;
-      (==cns11643-2      . #x2A3E)     ; &g2-CU+5F56; [10-30]
       ))
     ))
 (define-char