(UU+5C12): Add `<-formed' for U+723E.

[chise/xemacs-chise.git-] / lisp / utf-2000 / Ideograph-R003-Dot.el

diff --git a/lisp/utf-2000/Ideograph-R003-Dot.el b/lisp/utf-2000/Ideograph-R003-Dot.el
index 92f5798..fe3e152 100644 (file)
--- a/lisp/utf-2000/Ideograph-R003-Dot.el
+++ b/lisp/utf-2000/Ideograph-R003-Dot.el
@@ -43,6 +43,23 @@
     (=adobe-japan1-4   . 13981)        ; &I-AJ1-13981;
     (=gb12345          . #x7D65)       ; 丷 [93-69]
     (=big5-cdp         . #x8B55)       ; &I-CDP-8B55;
+    (=gt-k             . 00150)        ; &I-GT-K00150;
+    (=gt-pj-k1         . #x3249)       ; 丷 [18-41]
+    (->subsumptive
+     ((==ucs@unicode     . #x4E37)     ; &g2-AJ1-13981;
+      (==adobe-japan1-4          . 13981)      ; &g2-AJ1-13981;
+      (==gb12345         . #x7D65)     ; &g2-AJ1-13981; [93-69]
+      (==big5-cdp        . #x8B55)     ; &g2-AJ1-13981;
+      (->subsumptive
+       ((===adobe-japan1-4  . 13981)   ; &R-AJ1-13981;
+       )
+       ((===big5-cdp       . #x8B55)   ; &R-CDP-8B55;
+       )
+       ((===ucs@unicode            . #x4E37)   ; &R-UU+4E37;
+       ))
+      )
+     ((==gt-k            . 00150)      ; &g2-GT-K00150;
+      ))
     ))
 (define-char
   '((ideographic-radical . 3)  ; ⼂
@@ -165,7 +182,34 @@
       ))
     ))
 (define-char
-  '((name              . "IDEOGRAPHIC ITERATION MARK")
+  '((ideographic-radical . 3)  ; ⼂
+    (ideographic-strokes . 2)
+    (total-strokes      . 3)
+    (=>daikanwa                . 00097)        ; &A-M-00097;
+    ))
+(define-char
+  '((<-denotational
+     ((=>daikanwa        . 00097)      ; &A-M-00097;
+      ))
+    (ideographic-radical . 3)  ; ⼂
+    (ideographic-strokes . 2)
+    (total-strokes      . 3)
+    (=ucs              . #x206A4)      ; 𠚤
+    (=gt               . 00135)        ; &I-GT-00135;
+    (=gt-k             . 00282)        ; &I-GT-K00282;
+    (=gt-pj-2          . #x306C)       ; &I-GT-00135; [16-76]
+    (=daikanwa         . 00097)        ; &I-M-00097;
+    (=cbeta            . 02728)        ; &I-CB02728;
+    (<-same
+     ((name              . "IDEOGRAPHIC ITERATION MARK")
+      (=ucs              . #x3005)     ; 々
+      ))
+    ))
+(define-char
+  '((<-denotational
+     ((=>daikanwa        . 00097)      ; &A-M-00097;
+      ))
+    (name              . "IDEOGRAPHIC ITERATION MARK")
     (script            Ideograph symbol)
     (general-category  letter modifier) ; Informative Category
     (bidi-category     . "L")
@@ -179,11 +223,6 @@
     (=gb2312           . #x2129)       ; &I-G0-2129; [01-09]
     (=jis-x0213-1      . #x2139)       ; &I-JX1-2139; [01-25]
     (=big5-eten                . #xC6E0)       ; &I-B-C6E0;
-    (=gt               . 00135)        ; &I-GT-00135;
-    (=gt-k             . 00282)        ; &I-GT-K00282;
-    (=gt-pj-2          . #x306C)       ; &I-GT-00135; [16-76]
-    (=daikanwa         . 00097)        ; &I-M-00097;
-    (=cbeta            . 02728)        ; &I-CB02728;
     ))
 (define-char
   '((<-denotational