(U+5C12): Use `->subsumptive'; add JC3-41E1.

[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 dede361..d780a6c 100644 (file)
--- a/lisp/utf-2000/Ideograph-R003-Dot.el
+++ b/lisp/utf-2000/Ideograph-R003-Dot.el
@@ -115,15 +115,22 @@
     (=daikanwa         . 00096)        ; �����
     ))
 (define-char
-  '((script            Ideograph)
-    (=>ucs             . #x3005)       ; 々
+  '((name              . "IDEOGRAPHIC ITERATION MARK")
+    (script            Ideograph symbol)
+    (general-category  letter modifier) ; Informative Category
+    (bidi-category     . "L")
+    (mirrored          . nil)
     (ideographic-radical . 3)  ; ⼂
     (ideographic-strokes . 2)
     (total-strokes      . 3)
+    (=ucs              . #x3005)       ; 々
+    (=jis-x0208                . #x2139)       ; �����
+    (=gb2312           . #x2129)       ; �����
     (=gt               . 00135)        ; ������
     (=gt-k             . 00282)        ; ������
     (=gt-pj-2          . #x306C)       ; ������
     (=daikanwa         . 00097)        ; �����
+    (=big5-eten                . #xC6E0)       ; ������
     (=cbeta            . 02728)        ; �����
     ))
 (define-char
@@ -237,51 +244,48 @@
     (=big5-cdp         . #x87D2)       ; ������
     ))
 (define-char
-  '((=>ucs             . #x4E3B)       ; 主
+  '((=>daikanwa                . 00100)        ; ������
     (ideographic-radical . 3)  ; ⼂
     (ideographic-strokes . 4)
     (total-strokes      . 5)
-    (ideographic-structure
-     ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW")
-      (=ucs              . #x2FF1)     ; ⿱
-      )
-     ((=ucs              . #x4E28)     ; 丨
-      )
-     ((=ucs              . #x738B)     ; 王
-      ))
-    (shinjigen-1       . 42)
-    (shinjigen-2       . 42)
-    (=gt               . 00137)        ; ������
-    (=gt-k             . 00948)        ; ������
-    (=gt-pj-2          . #x306E)       ; ������
-    (=daikanwa         . 00100)        ; �����
-    (=jef-china3       . #x41B3)       ; �����
-    ))
-(define-char
-  '((morohashi-daikanwa        100 0 1)
-    (ideographic-radical . 3)  ; ⼂
-    (ideographic-strokes . 4)
-    (total-strokes      . 5)
-    (hanyu-dazidian    1 44 3)
-    (ideographic-structure
-     ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW")
-      (=ucs              . #x2FF1)     ; ⿱
-      )
-     ((=ucs              . #x4E36)     ; 丶
+    (=ucs              . #x4E3B)       ; 主
+    (->subsumptive
+     ((ideographic-structure
+       ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW")
+       (=ucs               . #x2FF1)   ; ⿱
+       )
+       ((=ucs              . #x4E28)   ; 丨
+       )
+       ((=ucs              . #x738B)   ; 王
+       ))
+      (shinjigen-1       . 43)
+      (=gt               . 00137)      ; ������
+      (=gt-k             . 00948)      ; ������
+      (=gt-pj-2                  . #x306E)     ; ������
+      (=daikanwa         . 00100)      ; �����
+      (=jef-china3       . #x41B3)     ; �����
       )
-     ((=ucs              . #x738B)     ; 王
+     ((hanyu-dazidian    1 44 3)
+      (ideographic-structure
+       ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW")
+       (=ucs               . #x2FF1)   ; ⿱
+       )
+       ((=ucs              . #x4E36)   ; 丶
+       )
+       ((=ucs              . #x738B)   ; 王
+       ))
+      (shinjigen-1       . 42)
+      (shinjigen-2       . 42)
+      (=jis-x0208        . #x3C67)     ; �����
+      (=gb2312           . #x5677)     ; �����
+      (=ks-x1001         . #x712B)     ; �����
+      (=cns11643-1       . #x4564)     ; �����
+      (=big5             . #xA544)     ; ������
+      (=gt               . 00138)      ; ������
+      (=gt-k             . 00949)      ; ������
+      (=gt-pj-1                  . #x3C67)     ; ������
+      (=ucs@unicode      . #x4E3B)     ; �����
       ))
-    (shinjigen-1       . 42)
-    (shinjigen-2       . 42)
-    (=ucs              . #x4E3B)       ; 主
-    (=jis-x0208                . #x3C67)       ; �����
-    (=gb2312           . #x5677)       ; �����
-    (=ks-x1001         . #x712B)       ; �����
-    (=cns11643-1       . #x4564)       ; �����
-    (=big5             . #xA544)       ; ������
-    (=gt               . 00138)        ; ������
-    (=gt-k             . 00949)        ; ������
-    (=gt-pj-1          . #x3C67)       ; ������
     ))
 (define-char
   '((ideographic-radical . 3)  ; ⼂
@@ -385,10 +389,11 @@
       (=daikanwa         . 00059)      ; �����
       ))
     (<-ancient-ideograph
-     (:char    ((ideographic-radical . 198)    ; ⿅
-                (=daikanwa          . 47663)   ; �����
-                )
-      :sources (morohashi-daikanwa)))
+     ((ideographic-radical . 198)      ; ⿅
+      (=daikanwa         . 47663)      ; �����
+      ))
+    (<-ancient-ideograph*sources
+     daikanwa)
     (hanyu-dazidian    1 24 5)
     (ideographic-structure
      ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER LEFT TO RIGHT")