(U+53E7): Use `->ideographic-variants*sources' instead of char-ref in

[chise/xemacs-chise.git.1] / lisp / utf-2000 / Ideograph-R030-Mouth.el

diff --git a/lisp/utf-2000/Ideograph-R030-Mouth.el b/lisp/utf-2000/Ideograph-R030-Mouth.el
index 921f1a6..d007aeb 100644 (file)
--- a/lisp/utf-2000/Ideograph-R030-Mouth.el
+++ b/lisp/utf-2000/Ideograph-R030-Mouth.el
@@ -138,11 +138,11 @@
     (ideographic-strokes . 2)
     (total-strokes      . 5)
     (->ideographic-variants
-     (:sources (shinjigen-1)
-      :char    ((shinjigen-1        . 515)
-                (=daikanwa          . 01525)   ; �����
-                )
+     ((shinjigen-1       . 515)
+      (=daikanwa         . 01525)      ; �����
       ))
+    (->ideographic-variants*sources
+     shinjigen-1)
     (hanyu-dazidian    1 574 2)
     (ideographic-structure
      ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW")
@@ -156,6 +156,9 @@
     (=ucs              . #x53E7)       ; 叧
     (=jis-x0212                . #x3462)       ; �����
     (=cns11643-4       . #x216C)       ; �����
+    (=gt               . 04102)        ; ������
+    (=gt-k             . 01162)        ; ������
+    (=gt-pj-2          . #x4D4D)       ; ������
     (=daikanwa         . 03236)        ; �����
     (=hanziku-2                . #xC5E9)       ; ������
     (=jef-china3       . #x91AE)       ; �����
@@ -406,6 +409,10 @@
   '((ideographic-radical . 30) ; ⼝
     (ideographic-strokes . 2)
     (total-strokes      . 5)
+    (<-simplified@JP/Jouyou
+     ((=ucs              . #x81FA)     ; 臺
+      (=jis-x0208        . #x674A)     ; �����
+      ))
     (ideographic-structure
      ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW")
       (=ucs              . #x2FF1)     ; ⿱
@@ -632,6 +639,10 @@
   '((ideographic-radical . 30) ; ⼝
     (ideographic-strokes . 2)
     (total-strokes      . 5)
+    (<-simplified@JP/Jouyou
+     ((=jis-x0208        . #x694B)     ; �����
+      (=daikanwa         . 32726)      ; �����
+      ))
     (hanyu-dazidian    1 570 1)
     (ideographic-structure
      ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW")
@@ -685,6 +696,9 @@
     (=ucs              . #x20BA0)      ; 𠮠
     (=cns11643-5       . #x2161)       ; �����
     (=big5-cdp         . #x8BF7)       ; ������
+    (=gt               . 04135)        ; ������
+    (=gt-k             . 01063)        ; ������
+    (=gt-pj-2          . #x4D56)       ; ������
     (=daikanwa         . 03258)        ; �����
     (=jef-china3       . #x91AF)       ; �����
     ))
@@ -16422,6 +16436,11 @@
     (ideographic-radical . 30) ; ⼝
     (ideographic-strokes . 9)
     (total-strokes      . 12)
+    (<-simplified@JP/Jouyou
+     ((=ucs              . #xFA36)     ; 喝
+      (=jis-x0208-1978   . #x3365)     ; �����
+      (=jis-x0213-1-2000  . #x2F2C)    ; �����
+      ))
     (=jis-x0208-1983   . #x3365)       ; �����
     (=jis-x0208-1990   . #x3365)       ; �����
     (=gt               . 04705)        ; ������
@@ -17838,6 +17857,11 @@
     (ideographic-radical . 30) ; ⼝
     (ideographic-strokes . 9)
     (total-strokes      . 12)
+    (<-simplified@JP/Jouyou
+     ((=jis-x0208        . #x535B)     ; �����
+      (=ks-x1001         . #x673D)     ; �����
+      (=daikanwa         . 19457)      ; �����
+      ))
     (ideographic-structure
      ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO MIDDLE AND BELOW")
       (=ucs              . #x2FF3)     ; ⿳
@@ -20568,6 +20592,10 @@
     (ideographic-radical . 30) ; ⼝
     (ideographic-strokes . 10)
     (total-strokes      . 13)
+    (<-simplified@JP/Jouyou
+     ((=ucs              . #xFA37)     ; 嘆
+      (=jis-x0213-1-2000  . #x2F2F)    ; �����
+      ))
     (=jis-x0208                . #x4332)       ; �����
     (=gt               . 05142)        ; ������
     (=gt-k             . 10243)        ; ������
@@ -23519,6 +23547,11 @@
   '((ideographic-radical . 30) ; ⼝
     (ideographic-strokes . 12)
     (total-strokes      . 15)
+    (<-simplified@JP/Jouyou
+     ((=jis-x0208        . #x5376)     ; �����
+      (=ks-x1001         . #x7536)     ; �����
+      (=daikanwa         . 04654)      ; �����
+      ))
     (hanyu-dazidian    1 687 10)
     (ideographic-structure
      ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER LEFT TO RIGHT")
@@ -25617,6 +25650,10 @@
     (ideographic-radical . 30) ; ⼝
     (ideographic-strokes . 12)
     (total-strokes      . 15)
+    (<-simplified@JP/Jouyou
+     ((=ucs              . #xFA38)     ; 器
+      (=jis-x0213-1-2000  . #x2F36)    ; �����
+      ))
     (=ucs              . #x20F96)      ; 𠾖
     (=jis-x0208                . #x346F)       ; �����
     (=cns11643-4       . #x4932)       ; �����