From ffe143c4a3bf580720cd2774d8b0122256b295c5 Mon Sep 17 00:00:00 2001
From: tomo <tomo>
Date: Sat, 24 Jul 2004 08:25:07 +0000
Subject: [PATCH] Use `<-same' instead of `->same'.

---
 lisp/utf-2000/Ideograph-R001-One.el       |   18 +++++++--------
 lisp/utf-2000/Ideograph-R002-Line.el      |    2 +-
 lisp/utf-2000/Ideograph-R003-Dot.el       |   10 ++++-----
 lisp/utf-2000/Ideograph-R004-Slash.el     |    6 ++---
 lisp/utf-2000/Ideograph-R005-Second.el    |    2 +-
 lisp/utf-2000/Ideograph-R008-Lid.el       |    4 ++--
 lisp/utf-2000/Ideograph-R009-Man.el       |   14 ++++++------
 lisp/utf-2000/Ideograph-R015-Ice.el       |   12 +++++-----
 lisp/utf-2000/Ideograph-R017-Open-Box.el  |    2 +-
 lisp/utf-2000/Ideograph-R018-Knife.el     |   34 ++++++++++++++---------------
 lisp/utf-2000/Ideograph-R019-Power.el     |   10 ++++-----
 lisp/utf-2000/Ideograph-R020-Wrap.el      |    2 +-
 lisp/utf-2000/Ideograph-R026-Seal.el      |    4 ++--
 lisp/utf-2000/Ideograph-R029-Again.el     |    2 +-
 lisp/utf-2000/Ideograph-R030-Mouth.el     |    8 +++----
 lisp/utf-2000/Ideograph-R031-Enclosure.el |    2 +-
 lisp/utf-2000/Ideograph-R032-Earth.el     |    2 +-
 lisp/utf-2000/Ideograph-R036-Evening.el   |    8 +++----
 lisp/utf-2000/Ideograph-R040-Roof.el      |    4 ++--
 lisp/utf-2000/Ideograph-R043-Lame.el      |    6 ++---
 lisp/utf-2000/Ideograph-R044-Corpse.el    |    2 +-
 lisp/utf-2000/Ideograph-R046-Mountain.el  |    2 +-
 lisp/utf-2000/Ideograph-R058-Snout.el     |    2 +-
 lisp/utf-2000/Ideograph-R059-Bristle.el   |    4 ++--
 lisp/utf-2000/Ideograph-R060-Step.el      |    4 ++--
 lisp/utf-2000/Ideograph-R061-Heart.el     |   14 ++++++------
 lisp/utf-2000/Ideograph-R064-Hand.el      |    4 ++--
 lisp/utf-2000/Ideograph-R072-Sun.el       |   24 ++++++++++----------
 lisp/utf-2000/Ideograph-R085-Water.el     |   12 +++++-----
 lisp/utf-2000/Ideograph-R087-Claw.el      |    6 ++---
 lisp/utf-2000/Ideograph-R101-Use.el       |    2 +-
 lisp/utf-2000/Ideograph-R102-Field.el     |    4 ++--
 lisp/utf-2000/Ideograph-R109-Eye.el       |    2 +-
 lisp/utf-2000/Ideograph-R118-Bamboo.el    |    4 ++--
 lisp/utf-2000/Ideograph-R123-Sheep.el     |    2 +-
 lisp/utf-2000/Ideograph-R124-Feather.el   |    4 ++--
 lisp/utf-2000/Ideograph-R128-Ear.el       |    4 ++--
 lisp/utf-2000/Ideograph-R130-Meat.el      |    6 ++---
 lisp/utf-2000/Ideograph-R135-Tongue.el    |    2 +-
 lisp/utf-2000/Ideograph-R140-Grass.el     |   16 +++++++-------
 lisp/utf-2000/Ideograph-R142-Insect.el    |    2 +-
 lisp/utf-2000/Ideograph-R170-Mound.el     |    6 ++---
 lisp/utf-2000/Ideograph-R177-Leather.el   |    8 +++----
 lisp/utf-2000/Ideograph-R184-Eat.el       |    4 ++--
 lisp/utf-2000/Ideograph-R186-Fragrant.el  |    2 +-
 lisp/utf-2000/Ideograph-R196-Bird.el      |    2 +-
 46 files changed, 148 insertions(+), 148 deletions(-)

diff --git a/lisp/utf-2000/Ideograph-R001-One.el b/lisp/utf-2000/Ideograph-R001-One.el
index fcb80dd..eeb2833 100644
--- 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
--- 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
--- 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
--- 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
--- 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
--- 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
--- 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
--- 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
--- 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
--- 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
--- 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
--- 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
--- 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
--- 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
--- 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
--- 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
--- 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
--- 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
--- 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
--- 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
--- 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
--- 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
--- 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
--- 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
--- 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
--- 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
--- 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
--- 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
--- 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
--- 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
--- 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
--- 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
--- 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
--- 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
--- 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
--- 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
--- 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
--- 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
--- 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
--- 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
--- 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
--- 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
--- 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
--- 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
--- 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
--- 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)	; ä³­
-- 
1.7.10.4