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

[chise/xemacs-chise.git.1] / lisp / utf-2000 / Ideograph-R027-Cliff.el

diff --git a/lisp/utf-2000/Ideograph-R027-Cliff.el b/lisp/utf-2000/Ideograph-R027-Cliff.el
index a1b6c61..4dc9063 100644 (file)
--- a/lisp/utf-2000/Ideograph-R027-Cliff.el
+++ b/lisp/utf-2000/Ideograph-R027-Cliff.el
@@ -1534,7 +1534,7 @@
   '((ideographic-radical . 27) ; ⼚
     (ideographic-strokes . 9)
     (total-strokes      . 11)
-    (->same-ideograph
+    (->same
      ((=daikanwa         . 44029)      ; �����
       ))
     (=ucs              . #x20A78)      ; 𠩸
@@ -3028,13 +3028,15 @@
     (ideographic-radical . 27) ; ⼚
     (ideographic-strokes . 15)
     (total-strokes      . 17)
-    (<-simplified
-     (:sources (morohashi-daikanwa shinjigen-1)
-      :char    ((ideographic-radical . 30)     ; ⼝
-                (shinjigen-1        . 1286)
-                (=daikanwa          . 04589)   ; �����
-                )
+    (<-simplified@JP/Jouyou
+     ((shinjigen-1       . 1286)
+      (=jis-x0208        . #x536E)     ; �����
+      (=ks-x1001         . #x6571)     ; �����
+      (=cns11643-1       . #x7964)     ; �����
+      (=daikanwa         . 04589)      ; �����
       ))
+    (<-simplified@JP/Jouyou*sources
+     daikanwa shinjigen-1 JP/Jouyou)
     (ideographic-structure
      ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER SURROUND FROM UPPER LEFT")
       (=ucs              . #x2FF8)     ; ⿸
@@ -3094,15 +3096,20 @@
     (=daikanwa         . 03050)        ; �����
     ))
 (define-char
-  '((=>ucs             . #x9F8E)       ; 龎
-    (ideographic-radical . 27) ; ⼚
-    (ideographic-strokes . 16)
+  '((=>daikanwa                . 48819)        ; �����
+    (ideographic-radical@ucs . 212)    ; ⿓
+    (ideographic-strokes@ucs . 2)
+    (ideographic-radical@cns . 27)     ; ⼚
+    (ideographic-strokes@cns . 16)
     (total-strokes      . 18)
-    (->same-ideograph
-     ((ideographic-radical . 212)      ; ⿓
-      (=daikanwa         . 48819)      ; �����
+    (=ucs              . #x9F8E)       ; 龎
+    (->subsumptive
+     ((=daikanwa         . 48819)      ; �����
+      )
+     ((=ucs@unicode      . #x9F8E)     ; 󰀔
+      )
+     ((=cns11643-3       . #x5755)     ; �����
       ))
-    (=cns11643-3       . #x5755)       ; �����
     ))
 (define-char
   '((ideographic-radical . 27) ; ⼚