Use `<-same' instead of `->same'.

diff --git a/lisp/utf-2000/Ideograph-R001-One.el b/lisp/utf-2000/Ideograph-R001-One.el
index fcb80dd..eeb2833 100644 (file)
--- a/lisp/utf-2000/Ideograph-R001-One.el
+++ b/lisp/utf-2000/Ideograph-R001-One.el
@@ -1995,10 +1995,6 @@
   '((ideographic-radical . 1)  ; ⼀
     (ideographic-strokes . 7)
     (total-strokes      . 8)
-    (->same
-     ((=cns11643-3       . #x2740)     ; &GT-00145; [07-32]
-      (=daikanwa         . 00104)      ; &I-M-00104;
-      ))
     (<-ancient
      ((=jis-x0208-1978   . #x4E6F)     ; &GT-64844; [46-79]
       (=jis-x0208-1983   . #x4E6F)     ; &I-J83-4E6F; [46-79]
@@ -2010,6 +2006,10 @@
     (<-denotational
      ((=ucs              . #x4E3D)     ; 丽
       ))
+    (<-same
+     ((=cns11643-3       . #x2740)     ; &GT-00145; [07-32]
+      (=daikanwa         . 00104)      ; &I-M-00104;
+      ))
     (=cns11643-6       . #x2936)       ; &GT-00087; [09-22]
     (=gt               . 00087)        ; &I-GT-00087;
     (=gt-pj-2          . #x304B)       ; &I-GT-00087; [16-43]
@@ -2043,10 +2043,6 @@
     (ideographic-radical@cns*sources
      cns11643)
     (total-strokes      . 8)
-    (->same
-     ((=cns11643-6       . #x2936)     ; &GT-00087; [09-22]
-      (=daikanwa         . 00059)      ; &I-M-00059;
-      ))
     (<-ancient
      ((=jis-x0208-1978   . #x4E6F)     ; &GT-64844; [46-79]
       (=jis-x0208-1983   . #x4E6F)     ; &I-J83-4E6F; [46-79]
@@ -2058,6 +2054,10 @@
     (<-denotational
      ((=ucs              . #x4E3D)     ; 丽
       ))
+    (<-same
+     ((=cns11643-6       . #x2936)     ; &GT-00087; [09-22]
+      (=daikanwa         . 00059)      ; &I-M-00059;
+      ))
     (hanyu-dazidian    1 24 5)
     (ideographic-structure
      ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER LEFT TO RIGHT")
@@ -2443,7 +2443,7 @@
                        (:radical       1 ; ⼀
                         :strokes       11))
     (total-strokes      . 12)
-    (->same
+    (<-same
      ((=cns11643-6       . #x472D)     ; &C6-472D; [39-13]
       ))
     (hanyu-dazidian    1 26 11)

diff --git a/lisp/utf-2000/Ideograph-R002-Line.el b/lisp/utf-2000/Ideograph-R002-Line.el
index 95ea5ab..46a3970 100644 (file)
--- a/lisp/utf-2000/Ideograph-R002-Line.el
+++ b/lisp/utf-2000/Ideograph-R002-Line.el
@@ -291,7 +291,7 @@
                        (:radical       2 ; ⼁
                         :strokes       4))
     (total-strokes      . 5)
-    (->same
+    (<-same
      ((=daikanwa         . 04684)      ; &M-04684;
       ))
     (hanyu-dazidian    1 29 3)

diff --git a/lisp/utf-2000/Ideograph-R003-Dot.el b/lisp/utf-2000/Ideograph-R003-Dot.el
index f3a2d11..0ccb135 100644 (file)
--- a/lisp/utf-2000/Ideograph-R003-Dot.el
+++ b/lisp/utf-2000/Ideograph-R003-Dot.el
@@ -229,7 +229,7 @@
     (ideographic-radical . 3)  ; ⼂
     (ideographic-strokes . 3)
     (total-strokes      . 4)
-    (->same
+    (<-same
      ((=ucs              . #x2007E)    ; 𠁾
       ))
     (hanyu-dazidian    1 52 1)
@@ -396,10 +396,6 @@
     (ideographic-radical@cns*sources
      cns11643)
     (total-strokes      . 8)
-    (->same
-     ((=cns11643-6       . #x2936)     ; &GT-00087; [09-22]
-      (=daikanwa         . 00059)      ; &I-M-00059;
-      ))
     (<-ancient
      ((=jis-x0208-1978   . #x4E6F)     ; &GT-64844; [46-79]
       (=jis-x0208-1983   . #x4E6F)     ; &I-J83-4E6F; [46-79]
@@ -411,6 +407,10 @@
     (<-denotational
      ((=ucs              . #x4E3D)     ; 丽
       ))
+    (<-same
+     ((=cns11643-6       . #x2936)     ; &GT-00087; [09-22]
+      (=daikanwa         . 00059)      ; &I-M-00059;
+      ))
     (hanyu-dazidian    1 24 5)
     (ideographic-structure
      ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER LEFT TO RIGHT")

diff --git a/lisp/utf-2000/Ideograph-R004-Slash.el b/lisp/utf-2000/Ideograph-R004-Slash.el
index 87ed5ae..057a50b 100644 (file)
--- a/lisp/utf-2000/Ideograph-R004-Slash.el
+++ b/lisp/utf-2000/Ideograph-R004-Slash.el
@@ -454,7 +454,7 @@
     (ideographic-radical . 4)  ; ⼃
     (ideographic-strokes . 2)
     (total-strokes      . 3)
-    (->same
+    (<-same
      ((=ucs              . #x4E87)     ; 亇
       ))
     (=cns11643-3       . #x212D)       ; &C3-212D; [01-13]
@@ -566,11 +566,11 @@
     (ideographic-radical . 4)  ; ⼃
     (ideographic-strokes . 3)
     (total-strokes      . 4)
-    (->same
+    (<-same
      ((=ucs              . #x5301)     ; 匁
       (=daikanwa         . 02502)      ; &I-M-02502;
       ))
-    (->same*sources
+    (<-same*sources
      daikanwa)
     (=gt               . 00176)        ; &GT-00176;
     (=gt-pj-11         . #x527B)       ; &GT-00176; [50-91]

diff --git a/lisp/utf-2000/Ideograph-R005-Second.el b/lisp/utf-2000/Ideograph-R005-Second.el
index efc8816..80f890d 100644 (file)
--- a/lisp/utf-2000/Ideograph-R005-Second.el
+++ b/lisp/utf-2000/Ideograph-R005-Second.el
@@ -1239,7 +1239,7 @@
                        (:radical       5 ; ⼄
                         :strokes       7))
     (total-strokes      . 8)
-    (->same
+    (<-same
      ((=daikanwa         . 21712)      ; &M-21712;
       ))
     (hanyu-dazidian    1 55 3)

diff --git a/lisp/utf-2000/Ideograph-R008-Lid.el b/lisp/utf-2000/Ideograph-R008-Lid.el
index 7a7349c..72a4567 100644 (file)
--- a/lisp/utf-2000/Ideograph-R008-Lid.el
+++ b/lisp/utf-2000/Ideograph-R008-Lid.el
@@ -1981,7 +1981,7 @@
   '((ideographic-radical . 8)  ; ⼇
     (ideographic-strokes . 10)
     (total-strokes      . 12)
-    (->same
+    (<-same
      ((=daikanwa         . 23981)      ; &M-23981;
       ))
     (hanyu-dazidian    1 290 1)
@@ -2523,7 +2523,7 @@
                        (:radical       8 ; ⼇
                         :strokes       13))
     (total-strokes      . 15)
-    (->same
+    (<-same
      ((=daikanwa         . 49510)      ; &M-49510;
       ))
     (hanyu-dazidian    1 292 5)

diff --git a/lisp/utf-2000/Ideograph-R009-Man.el b/lisp/utf-2000/Ideograph-R009-Man.el
index 824ea1d..a7f89d1 100644 (file)
--- a/lisp/utf-2000/Ideograph-R009-Man.el
+++ b/lisp/utf-2000/Ideograph-R009-Man.el
@@ -785,14 +785,14 @@
      ((=cns11643-6       . #x2150)     ; &M-01512; [01-48]
       (=daikanwa         . 01512)      ; &I-M-01512;
       ))
-    (->same
-     ((=daikanwa         . 01418)      ; &I-M-01418;
-      ))
-    (->same*sources
-     daikanwa)
     (<-denotational
      ((=ucs              . #x5185)     ; 内
       ))
+    (<-same
+     ((=daikanwa         . 01418)      ; &I-M-01418;
+      ))
+    (<-same*sources
+     daikanwa)
     (=cns11643-3       . #x2148)       ; &C3-2148; [01-40]
     (=ucs@cns          . #x5185)       ; &C3-2148;
     ))
@@ -18414,11 +18414,11 @@
     (ideographic-radical@cns*sources
      cns11643 daikanwa)
     (total-strokes      . 12)
-    (->same
+    (<-same
      ((=ucs              . #x5013)     ; 倓
       (=daikanwa         . 00768)      ; &I-M-00768;
       ))
-    (->same*sources
+    (<-same*sources
      shuowen yunhai-bei daikanwa)
     (=ucs              . #x202F4)      ; 𠋴
     ))

diff --git a/lisp/utf-2000/Ideograph-R015-Ice.el b/lisp/utf-2000/Ideograph-R015-Ice.el
index 5d8858b..eeb0173 100644 (file)
--- a/lisp/utf-2000/Ideograph-R015-Ice.el
+++ b/lisp/utf-2000/Ideograph-R015-Ice.el
@@ -138,12 +138,6 @@
   '((ideographic-radical . 15) ; ⼎
     (ideographic-strokes . 4)
     (total-strokes      . 6)
-    (->same
-     ((=cns11643-3       . #x214C)     ; &M-00360; [01-44]
-      (=daikanwa         . 00360)      ; &I-M-00360;
-      ))
-    (->same*sources
-     shuowen kanjo ronkou jiyun daikanwa)
     (->vulgar
      ((=ucs              . #x6C37)     ; 氷
       (=daikanwa         . 17087)      ; &I-M-17087;
@@ -157,6 +151,12 @@
       ))
     (<-original*sources
      shinjigen-1)
+    (<-same
+     ((=cns11643-3       . #x214C)     ; &M-00360; [01-44]
+      (=daikanwa         . 00360)      ; &I-M-00360;
+      ))
+    (<-same*sources
+     shuowen kanjo ronkou jiyun daikanwa)
     (hanyu-dazidian    1 295 9)
     (ideographic-structure
      ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER LEFT TO RIGHT")

diff --git a/lisp/utf-2000/Ideograph-R017-Open-Box.el b/lisp/utf-2000/Ideograph-R017-Open-Box.el
index 21cad41..4560a62 100644 (file)
--- a/lisp/utf-2000/Ideograph-R017-Open-Box.el
+++ b/lisp/utf-2000/Ideograph-R017-Open-Box.el
@@ -762,7 +762,7 @@
     (->identical
      ((=cns11643-7       . #x4E3E)     ; &C7-4E3E; [46-30]
       ))
-    (->same
+    (<-same
      ((=daikanwa         . 49274)      ; &M-49274;
       ))
     (=ucs              . #x206A1)      ; 𠚡

diff --git a/lisp/utf-2000/Ideograph-R018-Knife.el b/lisp/utf-2000/Ideograph-R018-Knife.el
index 6b97b7a..7205a5a 100644 (file)
--- a/lisp/utf-2000/Ideograph-R018-Knife.el
+++ b/lisp/utf-2000/Ideograph-R018-Knife.el
@@ -1677,14 +1677,14 @@
   '((ideographic-radical . 18) ; ⼑
     (ideographic-strokes . 5)
     (total-strokes      . 7)
-    (->same
+    (<-same
      ((=ucs              . #x5227)     ; 刧
       (=daikanwa         . 01927)      ; &I-M-01927;
       )
      ((=ucs              . #x52AB)     ; 劫
       (=daikanwa         . 02316)      ; &I-M-02316;
       ))
-    (->same*sources
+    (<-same*sources
      zhengzi-tong daikanwa)
     (<-vulgar
      ((shinjigen-1       . 709)
@@ -1714,14 +1714,14 @@
   '((ideographic-radical . 18) ; ⼑
     (ideographic-strokes . 5)
     (total-strokes      . 7)
-    (->same
+    (<-same
      ((=ucs              . #x5226)     ; 刦
       (=daikanwa         . 01926)      ; &I-M-01926;
       )
      ((=ucs              . #x52AB)     ; 劫
       (=daikanwa         . 02316)      ; &I-M-02316;
       ))
-    (->same*sources
+    (<-same*sources
      zhengzi-tong daikanwa)
     (<-vulgar
      ((shinjigen-1       . 709)
@@ -4692,11 +4692,11 @@
   '((ideographic-radical . 18) ; ⼑
     (ideographic-strokes . 8)
     (total-strokes      . 10)
-    (->same
+    (<-same
      ((=ucs              . #x525D)     ; 剝
       (=daikanwa         . 02049)      ; &I-M-02049;
       ))
-    (->same*sources
+    (<-same*sources
      daikanwa)
     (<-vulgar
      ((shinjigen-1       . 666)
@@ -5966,11 +5966,11 @@
     (ideographic-radical@cns*sources
      cns11643 daikanwa)
     (total-strokes      . 12)
-    (->same
+    (<-same
      ((=ucs              . #x5013)     ; 倓
       (=daikanwa         . 00768)      ; &I-M-00768;
       ))
-    (->same*sources
+    (<-same*sources
      shuowen yunhai-bei daikanwa)
     (=ucs              . #x202F4)      ; 𠋴
     ))
@@ -7234,11 +7234,11 @@
     (ideographic-radical@cns . 118)    ; ⽵
     (ideographic-strokes@cns . 8)
     (total-strokes      . 14)
-    (->same
+    (<-same
      ((=ucs              . #x7B9A)     ; 箚
       (=daikanwa         . 26149)      ; &I-M-26149;
       ))
-    (->same*sources
+    (<-same*sources
      kouin kangxi daikanwa)
     (ideographic-structure
      ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER LEFT TO RIGHT")
@@ -7927,19 +7927,19 @@
     (total-strokes      . 16)
     (=ucs              . #x5292)       ; 劒
     (->subsumptive
-     ((->same
-       ((=ucs              . #x528D)   ; 劍
-       (=daikanwa          . 02228)    ; &I-M-02228;
-       ))
-      (->same*sources
-       yupian daikanwa)
-      (<-ancient
+     ((<-ancient
        ((shinjigen-1       . 653)
        (=ucs               . #x528D)   ; 劍
        (=jis-x0208         . #x5178)   ; &I-J90-5178; [49-88]
        ))
       (<-ancient*sources
        shinjigen-1)
+      (<-same
+       ((=ucs              . #x528D)   ; 劍
+       (=daikanwa          . 02228)    ; &I-M-02228;
+       ))
+      (<-same*sources
+       yupian daikanwa)
       (ideographic-structure
        ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER LEFT TO RIGHT")
        (=ucs               . #x2FF0)   ; ⿰

diff --git a/lisp/utf-2000/Ideograph-R019-Power.el b/lisp/utf-2000/Ideograph-R019-Power.el
index 1693afd..54ccea2 100644 (file)
--- a/lisp/utf-2000/Ideograph-R019-Power.el
+++ b/lisp/utf-2000/Ideograph-R019-Power.el
@@ -1602,16 +1602,16 @@
     (ideographic-radical . 19) ; ⼒
     (ideographic-strokes . 7)
     (total-strokes      . 9)
-    (->same
+    (<-denotational
+     ((=ucs              . #x52C9)     ; 勉
+      ))
+    (<-same
      ((shinjigen-1       . 735)
       (=jis-x0208        . #x4A59)     ; &GT-03050; [42-57]
       (=cns11643-6       . #x3558)     ; &I-C6-3558; [21-56]
       ))
-    (->same*sources
+    (<-same*sources
      shinjigen-1)
-    (<-denotational
-     ((=ucs              . #x52C9)     ; 勉
-      ))
     (hanyu-dazidian    1 372 3)
     (ideographic-structure
      ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER SURROUND FROM LOWER LEFT")

diff --git a/lisp/utf-2000/Ideograph-R020-Wrap.el b/lisp/utf-2000/Ideograph-R020-Wrap.el
index d01b526..376920c 100644 (file)
--- a/lisp/utf-2000/Ideograph-R020-Wrap.el
+++ b/lisp/utf-2000/Ideograph-R020-Wrap.el
@@ -231,7 +231,7 @@
   '((ideographic-radical . 20) ; ⼓
     (ideographic-strokes . 2)
     (total-strokes      . 4)
-    (->same
+    (<-same
      ((=gt               . 00176)      ; &GT-00176;
       (=daikanwa         . 00129)      ; &I-M-00129;
       ))

diff --git a/lisp/utf-2000/Ideograph-R026-Seal.el b/lisp/utf-2000/Ideograph-R026-Seal.el
index 99976f2..ba0379a 100644 (file)
--- a/lisp/utf-2000/Ideograph-R026-Seal.el
+++ b/lisp/utf-2000/Ideograph-R026-Seal.el
@@ -856,11 +856,11 @@
     (ideographic-radical . 26) ; ⼙
     (ideographic-strokes . 8)
     (total-strokes      . 10)
-    (->same
+    (<-same
      ((=ucs              . #x2F833)    ; 卿
       (=daikanwa         . 02879)      ; &I-M-02879;
       ))
-    (->same*sources
+    (<-same*sources
      zhonghua-dazidian daikanwa)
     (=daikanwa         . 02875)        ; &M-02875;
     ))

diff --git a/lisp/utf-2000/Ideograph-R029-Again.el b/lisp/utf-2000/Ideograph-R029-Again.el
index 7efcad4..1e7e80d 100644 (file)
--- a/lisp/utf-2000/Ideograph-R029-Again.el
+++ b/lisp/utf-2000/Ideograph-R029-Again.el
@@ -2095,7 +2095,7 @@
     (->identical
      ((=cns11643-6       . #x537B)     ; &C6-537B; [51-91]
       ))
-    (->same
+    (<-same
      ((=daikanwa         . 16642)      ; &M-16642;
       ))
     (=ucs              . #x20B81)      ; 𠮁

diff --git a/lisp/utf-2000/Ideograph-R030-Mouth.el b/lisp/utf-2000/Ideograph-R030-Mouth.el
index 1b12db3..00f30a1 100644 (file)
--- a/lisp/utf-2000/Ideograph-R030-Mouth.el
+++ b/lisp/utf-2000/Ideograph-R030-Mouth.el
@@ -3746,7 +3746,7 @@
     (ideographic-radical . 30) ; ⼝
     (ideographic-strokes . 4)
     (total-strokes      . 7)
-    (->same
+    (<-same
      ((=ucs              . #x2F83E)    ; 呈
       ))
     (=ucs              . #x5448)       ; 呈
@@ -11362,7 +11362,7 @@
   '((ideographic-radical . 30) ; ⼝
     (ideographic-strokes . 7)
     (total-strokes      . 10)
-    (->same
+    (<-same
      ((=cns11643-6       . #x395E)     ; &M-21715; [25-62]
       (=daikanwa         . 21715)      ; &I-M-21715;
       ))
@@ -13219,7 +13219,7 @@
     (ideographic-radical . 30) ; ⼝
     (ideographic-strokes . 8)
     (total-strokes      . 11)
-    (->same
+    (<-same
      ((=ucs              . #x2F843)    ; 啓
       ))
     (=ucs              . #x5553)       ; 啓
@@ -17691,7 +17691,7 @@
                        (:radical       1 ; ⼀
                         :strokes       11))
     (total-strokes      . 12)
-    (->same
+    (<-same
      ((=cns11643-6       . #x472D)     ; &C6-472D; [39-13]
       ))
     (hanyu-dazidian    1 26 11)

diff --git a/lisp/utf-2000/Ideograph-R031-Enclosure.el b/lisp/utf-2000/Ideograph-R031-Enclosure.el
index 5f85351..ce5a8bc 100644 (file)
--- a/lisp/utf-2000/Ideograph-R031-Enclosure.el
+++ b/lisp/utf-2000/Ideograph-R031-Enclosure.el
@@ -228,7 +228,7 @@
                        (:radical       2 ; ⼁
                         :strokes       4))
     (total-strokes      . 5)
-    (->same
+    (<-same
      ((=daikanwa         . 04684)      ; &M-04684;
       ))
     (hanyu-dazidian    1 29 3)

diff --git a/lisp/utf-2000/Ideograph-R032-Earth.el b/lisp/utf-2000/Ideograph-R032-Earth.el
index f7dd135..d8e1fd4 100644 (file)
--- a/lisp/utf-2000/Ideograph-R032-Earth.el
+++ b/lisp/utf-2000/Ideograph-R032-Earth.el
@@ -2341,7 +2341,7 @@
   '((ideographic-radical . 32) ; ⼟
     (ideographic-strokes . 5)
     (total-strokes      . 8)
-    (->same
+    (<-same
      ((=cns11643-6       . #x2641)     ; &M-48957; [06-33]
       (=daikanwa         . 48957)      ; &I-M-48957;
       ))

diff --git a/lisp/utf-2000/Ideograph-R036-Evening.el b/lisp/utf-2000/Ideograph-R036-Evening.el
index cf4945e..3bef9a0 100644 (file)
--- a/lisp/utf-2000/Ideograph-R036-Evening.el
+++ b/lisp/utf-2000/Ideograph-R036-Evening.el
@@ -70,11 +70,11 @@
       ))
     (->mistakable*sources
      kangxi daikanwa)
-    (->same
+    (<-same
      ((=ucs              . #x5917)     ; 夗
       (=daikanwa         . 05752)      ; &I-M-05752;
       ))
-    (->same*sources
+    (<-same*sources
      zihui daikanwa)
     (<-vulgar
      ((shinjigen-1       . 848)
@@ -169,11 +169,11 @@
   '((ideographic-radical . 36) ; ⼣
     (ideographic-strokes . 3)
     (total-strokes      . 6)
-    (->same
+    (<-same
      ((=ucs              . #x591A)     ; 多
       (=daikanwa         . 05756)      ; &I-M-05756;
       ))
-    (->same*sources
+    (<-same*sources
      jiyun daikanwa)
     (hanyu-dazidian    2 862 1)
     (=ucs              . #x21587)      ; 𡖇

diff --git a/lisp/utf-2000/Ideograph-R040-Roof.el b/lisp/utf-2000/Ideograph-R040-Roof.el
index 128dab5..afbc821 100644 (file)
--- a/lisp/utf-2000/Ideograph-R040-Roof.el
+++ b/lisp/utf-2000/Ideograph-R040-Roof.el
@@ -1127,12 +1127,12 @@
     (ideographic-radical . 40) ; ⼧
     (ideographic-strokes . 5)
     (total-strokes      . 8)
-    (->same
+    (<-same
      ((=jis-x0208        . #x3539)     ; &GT-08923; [21-25]
       (=ks-x1001         . #x6B71)     ; &I-K0-6B71; [75-81]
       (=daikanwa         . 07111)      ; &I-M-07111;
       ))
-    (->same*sources
+    (<-same*sources
      daikanwa)
     (->subsumptive
      ((=daikanwa         . 07112)      ; &M-07112;

diff --git a/lisp/utf-2000/Ideograph-R043-Lame.el b/lisp/utf-2000/Ideograph-R043-Lame.el
index ec5b810..a6f0ed1 100644 (file)
--- a/lisp/utf-2000/Ideograph-R043-Lame.el
+++ b/lisp/utf-2000/Ideograph-R043-Lame.el
@@ -32,7 +32,7 @@
     (ideographic-radical . 43) ; ⼪
     (ideographic-strokes . 0)
     (total-strokes      . 3)
-    (->same
+    (<-same
      ((=ucs              . #x2F875)    ; 尢
       ))
     (=ucs              . #x5C22)       ; 尢
@@ -606,11 +606,11 @@
   '((ideographic-radical . 43) ; ⼪
     (ideographic-strokes . 7)
     (total-strokes      . 10)
-    (->same
+    (<-same
      ((=cns11643-6       . #x366A)     ; &M-07583; [22-74]
       (=daikanwa         . 07583)      ; &I-M-07583;
       ))
-    (->same*sources
+    (<-same*sources
      daikanwa)
     (=ucs              . #x21BED)      ; 𡯭
     (=cns11643-6       . #x366B)       ; &I-C6-366B; [22-75]

diff --git a/lisp/utf-2000/Ideograph-R044-Corpse.el b/lisp/utf-2000/Ideograph-R044-Corpse.el
index 0486501..023ce94 100644 (file)
--- a/lisp/utf-2000/Ideograph-R044-Corpse.el
+++ b/lisp/utf-2000/Ideograph-R044-Corpse.el
@@ -1625,7 +1625,7 @@
   '((ideographic-radical . 44) ; ⼫
     (ideographic-strokes . 9)
     (total-strokes      . 12)
-    (->same
+    (<-same
      ((=daikanwa         . 07001)      ; &M-07001;
       ))
     (=ucs              . #x21CAA)      ; 𡲪

diff --git a/lisp/utf-2000/Ideograph-R046-Mountain.el b/lisp/utf-2000/Ideograph-R046-Mountain.el
index 2c8f1e2..bc0b6b8 100644 (file)
--- a/lisp/utf-2000/Ideograph-R046-Mountain.el
+++ b/lisp/utf-2000/Ideograph-R046-Mountain.el
@@ -4816,7 +4816,7 @@
     (ideographic-radical . 46) ; ⼭
     (ideographic-strokes . 9)
     (total-strokes      . 12)
-    (->same
+    (<-same
      ((=ucs              . #x2F87C)    ; 嵃
       ))
     (=ucs              . #x5D43)       ; 嵃

diff --git a/lisp/utf-2000/Ideograph-R058-Snout.el b/lisp/utf-2000/Ideograph-R058-Snout.el
index 65ac4d6..52a5598 100644 (file)
--- a/lisp/utf-2000/Ideograph-R058-Snout.el
+++ b/lisp/utf-2000/Ideograph-R058-Snout.el
@@ -221,7 +221,7 @@
     (->identical
      ((=cns11643-6       . #x2D32)     ; &C6-2D32; [13-18]
       ))
-    (->same
+    (<-same
      ((=daikanwa         . 21759)      ; &M-21759;
       ))
     (=ucs              . #x22456)      ; 𢑖

diff --git a/lisp/utf-2000/Ideograph-R059-Bristle.el b/lisp/utf-2000/Ideograph-R059-Bristle.el
index 946637d..99ac8f7 100644 (file)
--- a/lisp/utf-2000/Ideograph-R059-Bristle.el
+++ b/lisp/utf-2000/Ideograph-R059-Bristle.el
@@ -441,12 +441,12 @@
     (ideographic-radical . 59) ; ⼺
     (ideographic-strokes . 8)
     (total-strokes      . 11)
-    (->same
+    (<-same
      ((=jis-x0208        . #x4937)     ; &GT-12610; [41-23]
       (=ks-x1001         . #x7873)     ; &I-K0-7873; [88-83]
       (=daikanwa         . 09993)      ; &I-M-09993;
       ))
-    (->same*sources
+    (<-same*sources
      zihui-bei daikanwa)
     (=ucs              . #x2249C)      ; 𢒜
     (->subsumptive

diff --git a/lisp/utf-2000/Ideograph-R060-Step.el b/lisp/utf-2000/Ideograph-R060-Step.el
index 43939b8..a313998 100644 (file)
--- a/lisp/utf-2000/Ideograph-R060-Step.el
+++ b/lisp/utf-2000/Ideograph-R060-Step.el
@@ -845,12 +845,12 @@
     (ideographic-radical . 60) ; ⼻
     (ideographic-strokes . 6)
     (total-strokes      . 9)
-    (->same
+    (<-same
      ((=jis-x0212        . #x3070)     ; &M-00522; [16-80]
       (=jis-x0213-1-2000  . #x2E31)    ; &I-JX1-2E31; [14-17]
       (=daikanwa         . 00522)      ; &I-M-00522;
       ))
-    (->same*sources
+    (<-same*sources
      chuanpian daikanwa)
     (=daikanwa         . 10104)        ; &M-10104;
     (=jef-china3       . #x4DB3)       ; &I-JC3-4DB3;

diff --git a/lisp/utf-2000/Ideograph-R061-Heart.el b/lisp/utf-2000/Ideograph-R061-Heart.el
index b2e745b..f0a9d39 100644 (file)
--- a/lisp/utf-2000/Ideograph-R061-Heart.el
+++ b/lisp/utf-2000/Ideograph-R061-Heart.el
@@ -15943,13 +15943,6 @@
   '((ideographic-radical . 61) ; ⼼
     (ideographic-strokes . 16)
     (total-strokes      . 20)
-    (->same
-     ((=jis-x0208        . #x5874)     ; &GT-14505; [56-84]
-      (=ks-x1001         . #x6B73)     ; &I-K0-6B73; [75-83]
-      (=daikanwa         . 11501)      ; &I-M-11501;
-      ))
-    (->same*sources
-     zhengzi-tong daikanwa)
     (<-original
      ((shinjigen-1       . 2743)
       (=jis-x0208        . #x5874)     ; &GT-14505; [56-84]
@@ -15958,6 +15951,13 @@
       ))
     (<-original*sources
      shinjigen-1)
+    (<-same
+     ((=jis-x0208        . #x5874)     ; &GT-14505; [56-84]
+      (=ks-x1001         . #x6B73)     ; &I-K0-6B73; [75-83]
+      (=daikanwa         . 11501)      ; &I-M-11501;
+      ))
+    (<-same*sources
+     zhengzi-tong daikanwa)
     (shinjigen-1       . 2744)
     (=ucs              . #x39A4)       ; 㦤
     (=cns11643-4       . #x6343)       ; &I-C4-6343; [67-35]

diff --git a/lisp/utf-2000/Ideograph-R064-Hand.el b/lisp/utf-2000/Ideograph-R064-Hand.el
index 8035dae..5b1134d 100644 (file)
--- a/lisp/utf-2000/Ideograph-R064-Hand.el
+++ b/lisp/utf-2000/Ideograph-R064-Hand.el
@@ -14535,7 +14535,7 @@
     (ideographic-radical . 64) ; ⼿
     (ideographic-strokes . 12)
     (total-strokes      . 15)
-    (->same
+    (<-same
      ((=ucs              . #x2F8C5)    ; 撝
       ))
     (=ucs              . #x649D)       ; 撝
@@ -19783,7 +19783,7 @@
   '((ideographic-radical . 64) ; ⼿
     (ideographic-strokes . 19)
     (total-strokes      . 22)
-    (->same@unknown
+    (<-same@unknown
      ((=ucs              . #x7C61)     ; 籡
       ))
     (hanyu-dazidian    3 1991 1)

diff --git a/lisp/utf-2000/Ideograph-R072-Sun.el b/lisp/utf-2000/Ideograph-R072-Sun.el
index c736376..4e74346 100644 (file)
--- a/lisp/utf-2000/Ideograph-R072-Sun.el
+++ b/lisp/utf-2000/Ideograph-R072-Sun.el
@@ -2326,17 +2326,17 @@
       ))
     (->confusing*sources
      daikanwa)
-    (->same
-     ((=ucs              . #x26618)    ; 𦘘
-      (=daikanwa         . 29223)      ; &I-M-29223;
-      ))
-    (->same*sources
-     daikanwa)
     (<-Large-Seal
      ((=daikanwa         . 13948)      ; &I-M-13948;
       ))
     (<-Large-Seal*sources
      shuowen daikanwa)
+    (<-same
+     ((=ucs              . #x26618)    ; 𦘘
+      (=daikanwa         . 29223)      ; &I-M-29223;
+      ))
+    (<-same*sources
+     daikanwa)
     (=ucs              . #x2F8CC)      ; 書
     (=cns11643-6       . #x3836)       ; &I-C6-3836; [24-22]
     (=daikanwa         . 13928)        ; &I-M-13928;
@@ -5245,17 +5245,17 @@
     (->subsumptive
      ((ideographic-strokes . 11)
       (total-strokes      . 15)
-      (->same
-       ((=ucs              . #x6635)   ; 昵
-       (=daikanwa          . 13866)    ; &I-M-13866;
-       ))
-      (->same*sources
-       shuowen daikanwa)
       (->synonyms
        ((=daikanwa         . 00279)    ; &I-M-00279;
        ))
       (->synonyms*sources
        shuowen-tongxun-dingsheng daikanwa)
+      (<-same
+       ((=ucs              . #x6635)   ; 昵
+       (=daikanwa          . 13866)    ; &I-M-13866;
+       ))
+      (<-same*sources
+       shuowen daikanwa)
       (=daikanwa         . 14132)      ; &M-14132;
       (=jef-china3       . #x51EA)     ; &I-JC3-51EA;
       )

diff --git a/lisp/utf-2000/Ideograph-R085-Water.el b/lisp/utf-2000/Ideograph-R085-Water.el
index d2b51c8..121bab0 100644 (file)
--- a/lisp/utf-2000/Ideograph-R085-Water.el
+++ b/lisp/utf-2000/Ideograph-R085-Water.el
@@ -4639,20 +4639,20 @@
      ((=ucs              . #x6D3E)     ; 派
       ))
     (->subsumptive
-     ((->same
+     ((->vulgar
        ((=gb2312           . #x4549)   ; &M-17427; [37-41]
        (=cns11643-1        . #x5226)   ; &I-C1-5226; [50-06]
        (=daikanwa          . 17427)    ; &I-M-17427;
        ))
-      (->same*sources
-       daikanwa)
-      (->vulgar
+      (->vulgar*sources
+       zhengzi-tong)
+      (<-same
        ((=gb2312           . #x4549)   ; &M-17427; [37-41]
        (=cns11643-1        . #x5226)   ; &I-C1-5226; [50-06]
        (=daikanwa          . 17427)    ; &I-M-17427;
        ))
-      (->vulgar*sources
-       zhengzi-tong)
+      (<-same*sources
+       daikanwa)
       (shinjigen-1       . 4197)
       (shinjigen-2       . 4197)
       (=jis-x0208-1978   . #x4749)     ; &M-17428; [39-41]

diff --git a/lisp/utf-2000/Ideograph-R087-Claw.el b/lisp/utf-2000/Ideograph-R087-Claw.el
index 6605fc8..fcb58ba 100644 (file)
--- a/lisp/utf-2000/Ideograph-R087-Claw.el
+++ b/lisp/utf-2000/Ideograph-R087-Claw.el
@@ -351,12 +351,12 @@
        ))
       (->ancient*sources
        zhengzi-tong shuowen danchuu daikanwa)
-      (->same
+      (<-same
        ((=jis-x0208        . #x502C)   ; &GT-00285; [48-12]
        (=ks-x1001          . #x552F)   ; &I-K0-552F; [53-15]
        (=daikanwa          . 00214)    ; &I-M-00214;
        ))
-      (->same*sources
+      (<-same*sources
        shuowen daikanwa)
       (=gt               . 25281)      ; &GT-25281;
       (=gt-k             . 09318)      ; &I-GT-K09318;
@@ -400,7 +400,7 @@
     (->identical
      ((=cns11643-6       . #x4743)     ; &C6-4743; [39-35]
       ))
-    (->same
+    (<-same
      ((=daikanwa         . 04811)      ; &M-04811;
       ))
     (hanyu-dazidian    3 2033 18)

diff --git a/lisp/utf-2000/Ideograph-R101-Use.el b/lisp/utf-2000/Ideograph-R101-Use.el
index 3d1838f..e730178 100644 (file)
--- a/lisp/utf-2000/Ideograph-R101-Use.el
+++ b/lisp/utf-2000/Ideograph-R101-Use.el
@@ -192,7 +192,7 @@
                        (:radical       5 ; ⼄
                         :strokes       7))
     (total-strokes      . 8)
-    (->same
+    (<-same
      ((=daikanwa         . 21712)      ; &M-21712;
       ))
     (hanyu-dazidian    1 55 3)

diff --git a/lisp/utf-2000/Ideograph-R102-Field.el b/lisp/utf-2000/Ideograph-R102-Field.el
index 34e7c57..c915d8d 100644 (file)
--- a/lisp/utf-2000/Ideograph-R102-Field.el
+++ b/lisp/utf-2000/Ideograph-R102-Field.el
@@ -178,11 +178,11 @@
     (ideographic-radical . 102)        ; ⽥
     (ideographic-strokes . 2)
     (total-strokes      . 7)
-    (->same
+    (<-same
      ((=ucs              . #x753A)     ; 町
       (=daikanwa         . 21735)      ; &I-M-21735;
       ))
-    (->same*sources
+    (<-same*sources
      daikanwa)
     (=ucs              . #x753C)       ; 甼
     (=jis-x0208                . #x6136)       ; &I-J90-6136; [65-22]

diff --git a/lisp/utf-2000/Ideograph-R109-Eye.el b/lisp/utf-2000/Ideograph-R109-Eye.el
index b52d1a7..99c1e08 100644 (file)
--- a/lisp/utf-2000/Ideograph-R109-Eye.el
+++ b/lisp/utf-2000/Ideograph-R109-Eye.el
@@ -3402,7 +3402,7 @@
     (ideographic-radical . 109)        ; ⽬
     (ideographic-strokes . 7)
     (total-strokes      . 12)
-    (->same
+    (<-same
      ((=ucs              . #x2F949)    ; 䀹
       ))
     (=ucs              . #x4039)       ; 䀹

diff --git a/lisp/utf-2000/Ideograph-R118-Bamboo.el b/lisp/utf-2000/Ideograph-R118-Bamboo.el
index c76a10d..a005e26 100644 (file)
--- a/lisp/utf-2000/Ideograph-R118-Bamboo.el
+++ b/lisp/utf-2000/Ideograph-R118-Bamboo.el
@@ -3624,11 +3624,11 @@
     (ideographic-radical@cns . 118)    ; ⽵
     (ideographic-strokes@cns . 8)
     (total-strokes      . 14)
-    (->same
+    (<-same
      ((=ucs              . #x7B9A)     ; 箚
       (=daikanwa         . 26149)      ; &I-M-26149;
       ))
-    (->same*sources
+    (<-same*sources
      kouin kangxi daikanwa)
     (ideographic-structure
      ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER LEFT TO RIGHT")

diff --git a/lisp/utf-2000/Ideograph-R123-Sheep.el b/lisp/utf-2000/Ideograph-R123-Sheep.el
index 540230f..e197ff8 100644 (file)
--- a/lisp/utf-2000/Ideograph-R123-Sheep.el
+++ b/lisp/utf-2000/Ideograph-R123-Sheep.el
@@ -1618,7 +1618,7 @@
                        (:radical       8 ; ⼇
                         :strokes       13))
     (total-strokes      . 15)
-    (->same
+    (<-same
      ((=daikanwa         . 49510)      ; &M-49510;
       ))
     (hanyu-dazidian    1 292 5)

diff --git a/lisp/utf-2000/Ideograph-R124-Feather.el b/lisp/utf-2000/Ideograph-R124-Feather.el
index 075cb31..c842df2 100644 (file)
--- a/lisp/utf-2000/Ideograph-R124-Feather.el
+++ b/lisp/utf-2000/Ideograph-R124-Feather.el
@@ -4471,10 +4471,10 @@
     (ideographic-radical . 124)        ; ⽻
     (ideographic-strokes . 11)
     (total-strokes      . 17)
-    (->same
+    (<-same
      ((=daikanwa         . 28818)      ; &M-28818;
       ))
-    (->same*sources
+    (<-same*sources
      daikanwa)
     (ideographic-structure
      ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW")

diff --git a/lisp/utf-2000/Ideograph-R128-Ear.el b/lisp/utf-2000/Ideograph-R128-Ear.el
index 30b9bdb..1aaa70e 100644 (file)
--- a/lisp/utf-2000/Ideograph-R128-Ear.el
+++ b/lisp/utf-2000/Ideograph-R128-Ear.el
@@ -158,7 +158,7 @@
   '((ideographic-radical . 128)        ; ⽿
     (ideographic-strokes . 2)
     (total-strokes      . 8)
-    (->same
+    (<-same
      ((=big5-cdp         . #x8C5B)     ; &CDP-8C5B;
       ))
     (=gt-k             . 04926)        ; &GT-K04926;
@@ -168,7 +168,7 @@
   '((ideographic-radical . 128)        ; ⽿
     (ideographic-strokes . 2)
     (total-strokes      . 8)
-    (->same
+    (<-same
      ((=gt-k             . 04926)      ; &GT-K04926;
       ))
     (=big5-cdp         . #x8C5B)       ; &CDP-8C5B;

diff --git a/lisp/utf-2000/Ideograph-R130-Meat.el b/lisp/utf-2000/Ideograph-R130-Meat.el
index 80c6744..d6dc49d 100644 (file)
--- a/lisp/utf-2000/Ideograph-R130-Meat.el
+++ b/lisp/utf-2000/Ideograph-R130-Meat.el
@@ -10425,7 +10425,7 @@
     (->identical
      ((=cns11643-6       . #x5D5C)     ; &C6-5D5C; [61-60]
       ))
-    (->same
+    (<-same
      ((=daikanwa         . 49158)      ; &M-49158;
       ))
     (hanyu-dazidian    3 2104 5)
@@ -10436,7 +10436,7 @@
     (ideographic-radical . 130)        ; ⾁
     (ideographic-strokes . 10)
     (total-strokes      . 14)
-    (->same
+    (<-same
      ((=daikanwa         . 49158)      ; &M-49158;
       )
      ((=cns11643-6       . #x5D5C)     ; &C6-5D5C; [61-60]
@@ -11267,7 +11267,7 @@
     (ideographic-radical . 130)        ; ⾁
     (ideographic-strokes . 11)
     (total-strokes      . 15)
-    (->same
+    (<-same
      ((=jis-x0208        . #x6733)     ; &GT-38614; [71-19]
       ))
     (=ucs              . #x81A4)       ; 膤

diff --git a/lisp/utf-2000/Ideograph-R135-Tongue.el b/lisp/utf-2000/Ideograph-R135-Tongue.el
index efb1050..4593ec1 100644 (file)
--- a/lisp/utf-2000/Ideograph-R135-Tongue.el
+++ b/lisp/utf-2000/Ideograph-R135-Tongue.el
@@ -454,7 +454,7 @@
        ((=jis-x0208        . #x3C2D)   ; &GT-51568; [28-13]
        (=daikanwa          . 38638)    ; &I-M-38638;
        ))
-      (->same*sources
+      (<-same*sources
        daikanwa)
       (<-vulgar@jiyun
        ((=jis-x0212        . #x6130)   ; &M-38649; [65-16]

diff --git a/lisp/utf-2000/Ideograph-R140-Grass.el b/lisp/utf-2000/Ideograph-R140-Grass.el
index 4632d48..d32b2b4 100644 (file)
--- a/lisp/utf-2000/Ideograph-R140-Grass.el
+++ b/lisp/utf-2000/Ideograph-R140-Grass.el
@@ -996,13 +996,7 @@
     (=ucs              . #x8294)       ; 芔
     (=big5             . #xD06A)       ; &I-B-D06A;
     (->subsumptive
-     ((->same
-       ((=ucs              . #x2F82C)  ; 卉
-       (=daikanwa          . 02720)    ; &I-M-02720;
-       ))
-      (->same*sources
-       shuowen zihui daikanwa)
-      (<-original
+     ((<-original
        ((shinjigen-1       . 816)
        (=ucs               . #x5349)   ; 卉
        (=jis-x0208         . #x5243)   ; &I-J90-5243; [50-35]
@@ -1010,6 +1004,12 @@
        ))
       (<-original*sources
        daikanwa shinjigen-1)
+      (<-same
+       ((=ucs              . #x2F82C)  ; 卉
+       (=daikanwa          . 02720)    ; &I-M-02720;
+       ))
+      (<-same*sources
+       shuowen zihui daikanwa)
       (shinjigen-1       . 817)
       (=jis-x0212        . #x5738)     ; &M-30685; [55-24]
       (=cns11643-2       . #x2D2D)     ; &I-C2-2D2D; [13-13]
@@ -4457,7 +4457,7 @@
     (->identical
      ((=cns11643-6       . #x333E)     ; &C6-333E; [19-30]
       ))
-    (->same
+    (<-same
      ((=daikanwa         . 23187)      ; &M-23187;
       ))
     (=ucs              . #x26B5D)      ; 𦭝

diff --git a/lisp/utf-2000/Ideograph-R142-Insect.el b/lisp/utf-2000/Ideograph-R142-Insect.el
index a5ac16a..89d9017 100644 (file)
--- a/lisp/utf-2000/Ideograph-R142-Insect.el
+++ b/lisp/utf-2000/Ideograph-R142-Insect.el
@@ -6736,7 +6736,7 @@
     (ideographic-radical . 142)        ; ⾍
     (ideographic-strokes . 10)
     (total-strokes      . 16)
-    (->same
+    (<-same
      ((=ucs              . #x2F9BB)    ; 蝹
       ))
     (=ucs              . #x8779)       ; 蝹

diff --git a/lisp/utf-2000/Ideograph-R170-Mound.el b/lisp/utf-2000/Ideograph-R170-Mound.el
index 1cb5b8d..bf11d65 100644 (file)
--- a/lisp/utf-2000/Ideograph-R170-Mound.el
+++ b/lisp/utf-2000/Ideograph-R170-Mound.el
@@ -1562,10 +1562,10 @@
   '((ideographic-radical . 170)        ; ⾩
     (ideographic-strokes . 7)
     (total-strokes      . 10)
-    (->same
+    (<-same
      ((=daikanwa         . 41704)      ; &M-41704;
       ))
-    (->same*sources
+    (<-same*sources
      zhonghua-dazidian daikanwa)
     (=daikanwa         . 41676)        ; &M-41676;
     ))
@@ -4728,7 +4728,7 @@
   '((ideographic-radical . 170)        ; ⾩
     (ideographic-strokes . 23)
     (total-strokes      . 31)
-    (->same
+    (<-same
      ((=daikanwa         . 19650)      ; &M-19650;
       ))
     (=ucs              . #x28F75)      ; 𨽵

diff --git a/lisp/utf-2000/Ideograph-R177-Leather.el b/lisp/utf-2000/Ideograph-R177-Leather.el
index 41ae12f..3604e7f 100644 (file)
--- a/lisp/utf-2000/Ideograph-R177-Leather.el
+++ b/lisp/utf-2000/Ideograph-R177-Leather.el
@@ -62,16 +62,16 @@
   '((ideographic-radical . 177)        ; ⾰
     (ideographic-strokes . 3)
     (total-strokes      . 12)
-    (->same@jiyun
+    (<-same@jiyun
      ((=daikanwa         . 29262)      ; &M-29262;
       ))
-    (->same@jiyun*sources
+    (<-same@jiyun*sources
      jiyun daikanwa)
-    (->same@zihui
+    (<-same@zihui
      ((=gb12345                  . #x484D)     ; &M-43109; [40-45]
       (=daikanwa         . 43109)      ; &M-43109;
       ))
-    (->same@zihui*sources
+    (<-same@zihui*sources
      jiyun zihui daikanwa)
     (=ucs              . #x976D)       ; 靭
     (->subsumptive

diff --git a/lisp/utf-2000/Ideograph-R184-Eat.el b/lisp/utf-2000/Ideograph-R184-Eat.el
index 5afa780..929b5e7 100644 (file)
--- a/lisp/utf-2000/Ideograph-R184-Eat.el
+++ b/lisp/utf-2000/Ideograph-R184-Eat.el
@@ -489,12 +489,12 @@
     (ideographic-radical . 184)        ; ⾷
     (ideographic-strokes . 3)
     (total-strokes      . 12)
-    (->same
+    (<-same
      ((=jis-x0212        . #x6870)     ; &M-44433; [72-80]
       (=jis-x0213-1-2000  . #x7E2A)    ; &I-JX1-7E2A; [94-10]
       (=daikanwa         . 44433)      ; &I-M-44433;
       ))
-    (->same*sources
+    (<-same*sources
      daikanwa)
     (=gt               . 59087)        ; &GT-59087;
     (=gt-pj-8          . #x4646)       ; &GT-59087; [38-38]

diff --git a/lisp/utf-2000/Ideograph-R186-Fragrant.el b/lisp/utf-2000/Ideograph-R186-Fragrant.el
index c6c47d0..ff50788 100644 (file)
--- a/lisp/utf-2000/Ideograph-R186-Fragrant.el
+++ b/lisp/utf-2000/Ideograph-R186-Fragrant.el
@@ -317,7 +317,7 @@
     (ideographic-radical . 186)        ; ⾹
     (ideographic-strokes . 9)
     (total-strokes      . 18)
-    (->same
+    (<-same
      ((=ucs              . #x2FA05)    ; 馧
       ))
     (=ucs              . #x99A7)       ; 馧

diff --git a/lisp/utf-2000/Ideograph-R196-Bird.el b/lisp/utf-2000/Ideograph-R196-Bird.el
index f51f1fa..a979864 100644 (file)
--- a/lisp/utf-2000/Ideograph-R196-Bird.el
+++ b/lisp/utf-2000/Ideograph-R196-Bird.el
@@ -4851,7 +4851,7 @@
     (ideographic-radical . 196)        ; ⿃
     (ideographic-strokes . 9)
     (total-strokes      . 20)
-    (->same
+    (<-same
      ((=ucs              . #x2FA0E)    ; 䳭
       ))
     (=ucs              . #x4CED)       ; 䳭