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)
-   

diff --cc lisp/utf-2000/Ideograph-R019-Power.el
Simple merge

diff --cc lisp/utf-2000/Ideograph-R020-Wrap.el
Simple merge

diff --cc lisp/utf-2000/Ideograph-R026-Seal.el
Simple merge

diff --cc lisp/utf-2000/Ideograph-R029-Again.el
Simple merge

diff --cc lisp/utf-2000/Ideograph-R030-Mouth.el
Simple merge

diff --cc lisp/utf-2000/Ideograph-R031-Enclosure.el
Simple merge

diff --cc lisp/utf-2000/Ideograph-R032-Earth.el
Simple merge

diff --cc lisp/utf-2000/Ideograph-R036-Evening.el
Simple merge

diff --cc lisp/utf-2000/Ideograph-R040-Roof.el
Simple merge

diff --cc lisp/utf-2000/Ideograph-R043-Lame.el
Simple merge

diff --cc lisp/utf-2000/Ideograph-R044-Corpse.el
Simple merge

diff --cc lisp/utf-2000/Ideograph-R046-Mountain.el
Simple merge

diff --cc lisp/utf-2000/Ideograph-R058-Snout.el
Simple merge

diff --cc lisp/utf-2000/Ideograph-R059-Bristle.el
Simple merge

diff --cc lisp/utf-2000/Ideograph-R060-Step.el
Simple merge

diff --cc lisp/utf-2000/Ideograph-R061-Heart.el
Simple merge

diff --cc lisp/utf-2000/Ideograph-R064-Hand.el
Simple merge

diff --cc lisp/utf-2000/Ideograph-R072-Sun.el
Simple merge

diff --cc lisp/utf-2000/Ideograph-R085-Water.el
Simple merge

diff --cc lisp/utf-2000/Ideograph-R087-Claw.el
Simple merge

diff --cc lisp/utf-2000/Ideograph-R101-Use.el
Simple merge

diff --cc lisp/utf-2000/Ideograph-R102-Field.el
Simple merge

diff --cc lisp/utf-2000/Ideograph-R109-Eye.el
Simple merge

diff --cc lisp/utf-2000/Ideograph-R118-Bamboo.el
Simple merge

diff --cc lisp/utf-2000/Ideograph-R123-Sheep.el
Simple merge

diff --cc lisp/utf-2000/Ideograph-R124-Feather.el
Simple merge

diff --cc lisp/utf-2000/Ideograph-R128-Ear.el
Simple merge

diff --cc lisp/utf-2000/Ideograph-R130-Meat.el
Simple merge

diff --cc lisp/utf-2000/Ideograph-R135-Tongue.el
Simple merge

diff --cc lisp/utf-2000/Ideograph-R140-Grass.el
Simple merge

diff --cc lisp/utf-2000/Ideograph-R142-Insect.el
Simple merge

diff --cc lisp/utf-2000/Ideograph-R170-Mound.el
Simple merge

diff --cc lisp/utf-2000/Ideograph-R177-Leather.el
Simple merge

diff --cc lisp/utf-2000/Ideograph-R184-Eat.el
Simple merge

diff --cc lisp/utf-2000/Ideograph-R186-Fragrant.el
Simple merge

diff --cc lisp/utf-2000/Ideograph-R196-Bird.el
Simple merge