Rename `->same-ideograph' to `->same'.

diff --git a/lisp/utf-2000/Ideograph-R001-One.el b/lisp/utf-2000/Ideograph-R001-One.el
index c023e9d..0ada5a8 100644 (file)
--- a/lisp/utf-2000/Ideograph-R001-One.el
+++ b/lisp/utf-2000/Ideograph-R001-One.el
@@ -1890,7 +1890,7 @@
     (ideographic-radical . 1)  ; ⼀
     (ideographic-strokes . 7)
     (total-strokes      . 8)
-    (->same-ideograph
+    (->same
      ((=daikanwa         . 00104)      ; �����
       ))
     (<-ancient-ideograph
@@ -1933,7 +1933,7 @@
     (ideographic-radical@cns*sources
      cns11643)
     (total-strokes      . 8)
-    (->same-ideograph
+    (->same
      ((ideographic-radical . 1)        ; ⼀
       (=daikanwa         . 00059)      ; �����
       ))
@@ -2324,7 +2324,7 @@
                        (:radical       1 ; ⼀
                         :strokes       11))
     (total-strokes      . 12)
-    (->same-ideograph
+    (->same
      ((=cns11643-6       . #x472D)     ; �����
       ))
     (hanyu-dazidian    1 26 11)

diff --git a/lisp/utf-2000/Ideograph-R002-Line.el b/lisp/utf-2000/Ideograph-R002-Line.el
index 2e348f0..dd8b6cd 100644 (file)
--- a/lisp/utf-2000/Ideograph-R002-Line.el
+++ b/lisp/utf-2000/Ideograph-R002-Line.el
@@ -45,10 +45,10 @@
   '((ideographic-radical . 2)  ; ⼁
     (ideographic-strokes . 1)
     (total-strokes      . 2)
-    (->same-ideograph
+    (->same
      ((=daikanwa         . 02775)      ; �����
       ))
-    (->same-ideograph*sources
+    (->same*sources
      daikanwa)
     (<-ancient-ideograph
      ((=daikanwa         . 02774)      ; �����
@@ -276,7 +276,7 @@
                        (:radical       2 ; ⼁
                         :strokes       4))
     (total-strokes      . 5)
-    (->same-ideograph
+    (->same
      ((=daikanwa         . 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 652e1cc..d0bd0f2 100644 (file)
--- a/lisp/utf-2000/Ideograph-R003-Dot.el
+++ b/lisp/utf-2000/Ideograph-R003-Dot.el
@@ -235,7 +235,7 @@
     (ideographic-radical . 3)  ; ⼂
     (ideographic-strokes . 3)
     (total-strokes      . 4)
-    (->same-ideograph
+    (->same
      ((=ucs              . #x2007E)    ; 𠁾
       )
      ((=daikanwa         . 02840)      ; �����
@@ -384,7 +384,7 @@
     (ideographic-radical@cns*sources
      cns11643)
     (total-strokes      . 8)
-    (->same-ideograph
+    (->same
      ((ideographic-radical . 1)        ; ⼀
       (=daikanwa         . 00059)      ; �����
       ))

diff --git a/lisp/utf-2000/Ideograph-R004-Slash.el b/lisp/utf-2000/Ideograph-R004-Slash.el
index 66cb51f..01f5b87 100644 (file)
--- a/lisp/utf-2000/Ideograph-R004-Slash.el
+++ b/lisp/utf-2000/Ideograph-R004-Slash.el
@@ -351,7 +351,7 @@
     (ideographic-radical . 4)  ; ⼃
     (ideographic-strokes . 2)
     (total-strokes      . 3)
-    (->same-ideograph
+    (->same
      ((=daikanwa         . 01740)      ; �����
       ))
     (<-vulgar-ideograph
@@ -427,7 +427,7 @@
     (ideographic-radical . 4)  ; ⼃
     (ideographic-strokes . 2)
     (total-strokes      . 3)
-    (->same-ideograph
+    (->same
      ((=ucs              . #x4E87)     ; 亇
       ))
     (=cns11643-3       . #x212D)       ; �����
@@ -543,11 +543,11 @@
     (ideographic-radical . 4)  ; ⼃
     (ideographic-strokes . 3)
     (total-strokes      . 4)
-    (->same-ideograph
+    (->same
      ((ideographic-radical . 20)       ; ⼓
       (=daikanwa         . 02502)      ; �����
       ))
-    (->same-ideograph*sources
+    (->same*sources
      daikanwa)
     (=gt               . 00176)        ; ������
     (=gt-pj-11         . #x527B)       ; ������
@@ -1374,7 +1374,7 @@
   '((ideographic-radical . 4)  ; ⼃
     (ideographic-strokes . 7)
     (total-strokes      . 8)
-    (->same-ideograph
+    (->same
      ((=daikanwa         . 27272)      ; �����
       ))
     (hanyu-dazidian    1 309 8)
@@ -1549,7 +1549,7 @@
   '((ideographic-radical . 4)  ; ⼃
     (ideographic-strokes . 9)
     (total-strokes      . 10)
-    (->same-ideograph
+    (->same
      ((=daikanwa         . 07853)      ; �����
       ))
     (<-original-ideograph

diff --git a/lisp/utf-2000/Ideograph-R005-Second.el b/lisp/utf-2000/Ideograph-R005-Second.el
index dce83df..603deb9 100644 (file)
--- a/lisp/utf-2000/Ideograph-R005-Second.el
+++ b/lisp/utf-2000/Ideograph-R005-Second.el
@@ -1231,7 +1231,7 @@
                        (:radical       5 ; ⼄
                         :strokes       7))
     (total-strokes      . 8)
-    (->same-ideograph
+    (->same
      ((=daikanwa         . 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 16270fa..8dec6df 100644 (file)
--- a/lisp/utf-2000/Ideograph-R008-Lid.el
+++ b/lisp/utf-2000/Ideograph-R008-Lid.el
@@ -1578,7 +1578,7 @@
                        (:radical       8 ; ⼇
                         :strokes       8))
     (total-strokes      . 10)
-    (->same-ideograph
+    (->same
      ((=daikanwa         . 05775)      ; �����
       ))
     (hanyu-dazidian    1 287 5)
@@ -2147,7 +2147,7 @@
   '((ideographic-radical . 8)  ; ⼇
     (ideographic-strokes . 10)
     (total-strokes      . 12)
-    (->same-ideograph
+    (->same
      ((=daikanwa         . 23981)      ; �����
       ))
     (hanyu-dazidian    1 290 1)
@@ -2623,7 +2623,7 @@
                        (:radical       8 ; ⼇
                         :strokes       13))
     (total-strokes      . 15)
-    (->same-ideograph
+    (->same
      ((=daikanwa         . 04326)      ; �����
       ))
     (hanyu-dazidian    1 292 8)
@@ -2694,7 +2694,7 @@
                        (:radical       8 ; ⼇
                         :strokes       13))
     (total-strokes      . 15)
-    (->same-ideograph
+    (->same
      ((=daikanwa         . 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 736545d..5d074b0 100644 (file)
--- a/lisp/utf-2000/Ideograph-R009-Man.el
+++ b/lisp/utf-2000/Ideograph-R009-Man.el
@@ -565,7 +565,7 @@
   '((ideographic-radical . 9)  ; ⼈
     (ideographic-strokes . 2)
     (total-strokes      . 4)
-    (->same-ideograph
+    (->same
      ((ideographic-radical . 15)       ; ⼎
       ))
     (<-original-ideograph
@@ -758,7 +758,7 @@
     (ideographic-radical . 9)  ; ⼈
     (ideographic-strokes . 2)
     (total-strokes      . 4)
-    (->same-ideograph
+    (->same
      (:sources (morohashi-daikanwa)
       :char    ((=>ucs              . #x5167)  ; 內
                 (ideographic-radical . 11)     ; ⼊
@@ -8912,7 +8912,7 @@
   '((ideographic-radical . 9)  ; ⼈
     (ideographic-strokes . 7)
     (total-strokes      . 9)
-    (->same-ideograph
+    (->same
      ((=daikanwa         . 23937)      ; �����
       ))
     (<-original-ideograph
@@ -18358,7 +18358,7 @@
   '((ideographic-radical . 9)  ; ⼈
     (ideographic-strokes . 10)
     (total-strokes      . 12)
-    (->same-ideograph
+    (->same
      ((=daikanwa         . 02134)      ; �����
       )
      (:char    ((=daikanwa          . 00768)   ; �����
@@ -20547,7 +20547,7 @@
   '((ideographic-radical . 9)  ; ⼈
     (ideographic-strokes . 10)
     (total-strokes      . 12)
-    (->same-ideograph
+    (->same
      ((=daikanwa         . 23328)      ; �����
       ))
     (=ucs              . #x2032A)      ; 𠌪
@@ -22806,7 +22806,7 @@
                         :strokes       11
                         :sources       (ucs)))
     (total-strokes      . 13)
-    (->same-ideograph
+    (->same
      ((=daikanwa         . 49471)      ; �����
       ))
     (hanyu-dazidian    1 210 15)

diff --git a/lisp/utf-2000/Ideograph-R015-Ice.el b/lisp/utf-2000/Ideograph-R015-Ice.el
index 8973433..9017452 100644 (file)
--- a/lisp/utf-2000/Ideograph-R015-Ice.el
+++ b/lisp/utf-2000/Ideograph-R015-Ice.el
@@ -171,7 +171,7 @@
     (ideographic-radical . 15) ; ⼎
     (ideographic-strokes . 2)
     (total-strokes      . 4)
-    (->same-ideograph
+    (->same
      ((ideographic-radical . 9)        ; ⼈
       (=daikanwa         . 00360)      ; �����
       ))

diff --git a/lisp/utf-2000/Ideograph-R017-Open-Box.el b/lisp/utf-2000/Ideograph-R017-Open-Box.el
index 645d6e0..72daa7e 100644 (file)
--- a/lisp/utf-2000/Ideograph-R017-Open-Box.el
+++ b/lisp/utf-2000/Ideograph-R017-Open-Box.el
@@ -751,7 +751,7 @@
     (->identical
      ((=cns11643-7       . #x4E3E)     ; �����
       ))
-    (->same-ideograph
+    (->same
      ((=daikanwa         . 49274)      ; �����
       ))
     (=ucs              . #x206A1)      ; 𠚡

diff --git a/lisp/utf-2000/Ideograph-R018-Knife.el b/lisp/utf-2000/Ideograph-R018-Knife.el
index 9b173bd..44d95cc 100644 (file)
--- a/lisp/utf-2000/Ideograph-R018-Knife.el
+++ b/lisp/utf-2000/Ideograph-R018-Knife.el
@@ -5946,7 +5946,7 @@
     (ideographic-radical . 18) ; ⼑
     (ideographic-strokes . 10)
     (total-strokes      . 12)
-    (->same-ideograph
+    (->same
      ((=daikanwa         . 00938)      ; �����
       )
      (:char    ((=daikanwa          . 00768)   ; �����
@@ -7201,10 +7201,10 @@
     (ideographic-radical@cns . 118)    ; ⽵
     (ideographic-strokes@cns . 8)
     (total-strokes      . 14)
-    (->same-ideograph
+    (->same
      ((=daikanwa         . 26149)      ; �����
       ))
-    (->same-ideograph*sources
+    (->same*sources
      kouin kangxi daikanwa)
     (ideographic-structure
      ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER LEFT TO RIGHT")
@@ -7899,7 +7899,7 @@
   '((ideographic-radical . 18) ; ⼑
     (ideographic-strokes . 14)
     (total-strokes      . 16)
-    (->same-ideograph
+    (->same
      (:char    ((=daikanwa          . 02228)   ; �����
                 )
       :sources (gyokuhen morohashi-daikanwa)))

diff --git a/lisp/utf-2000/Ideograph-R019-Power.el b/lisp/utf-2000/Ideograph-R019-Power.el
index d0e51b4..6dfbb84 100644 (file)
--- a/lisp/utf-2000/Ideograph-R019-Power.el
+++ b/lisp/utf-2000/Ideograph-R019-Power.el
@@ -1663,11 +1663,11 @@
     (ideographic-radical . 19) ; ⼒
     (ideographic-strokes . 7)
     (total-strokes      . 9)
-    (->same-ideograph
+    (->same
      ((shinjigen-1       . 735)
       (=jis-x0208        . #x4A59)     ; �����
       ))
-    (->same-ideograph*sources
+    (->same*sources
      shinjigen-1)
     (hanyu-dazidian    1 372 3)
     (ideographic-structure

diff --git a/lisp/utf-2000/Ideograph-R020-Wrap.el b/lisp/utf-2000/Ideograph-R020-Wrap.el
index e6f5846..99b58bc 100644 (file)
--- a/lisp/utf-2000/Ideograph-R020-Wrap.el
+++ b/lisp/utf-2000/Ideograph-R020-Wrap.el
@@ -232,7 +232,7 @@
   '((ideographic-radical . 20) ; ⼓
     (ideographic-strokes . 2)
     (total-strokes      . 4)
-    (->same-ideograph
+    (->same
      ((ideographic-radical . 4)        ; ⼃
       (=daikanwa         . 00129)      ; �����
       ))

diff --git a/lisp/utf-2000/Ideograph-R022-Right-Open-Box.el b/lisp/utf-2000/Ideograph-R022-Right-Open-Box.el
index 7ce951e..2eba93e 100644 (file)
--- a/lisp/utf-2000/Ideograph-R022-Right-Open-Box.el
+++ b/lisp/utf-2000/Ideograph-R022-Right-Open-Box.el
@@ -461,7 +461,7 @@
                        (:radical       23 ; ⼖
                         :strokes       6))
     (total-strokes      . 8)
-    (->same-ideograph
+    (->same
      ((=daikanwa         . 02683)      ; �����
       ))
     (hanyu-dazidian    1 85 14)

diff --git a/lisp/utf-2000/Ideograph-R023-Hiding-Enclosure.el b/lisp/utf-2000/Ideograph-R023-Hiding-Enclosure.el
index a32f1e3..87557cd 100644 (file)
--- a/lisp/utf-2000/Ideograph-R023-Hiding-Enclosure.el
+++ b/lisp/utf-2000/Ideograph-R023-Hiding-Enclosure.el
@@ -28,7 +28,7 @@
     (ideographic-radical . 23) ; ⼖
     (ideographic-strokes . 0)
     (total-strokes      . 2)
-    (->same-ideograph
+    (->same
      ((=daikanwa         . 02596)      ; �����
       ))
     (=cns11643-6       . #x212B)       ; �����
@@ -295,7 +295,7 @@
                        (:radical       23 ; ⼖
                         :strokes       6))
     (total-strokes      . 8)
-    (->same-ideograph
+    (->same
      ((=daikanwa         . 02683)      ; �����
       ))
     (hanyu-dazidian    1 85 14)

diff --git a/lisp/utf-2000/Ideograph-R025-Divination.el b/lisp/utf-2000/Ideograph-R025-Divination.el
index ac0ea0a..71c112b 100644 (file)
--- a/lisp/utf-2000/Ideograph-R025-Divination.el
+++ b/lisp/utf-2000/Ideograph-R025-Divination.el
@@ -31,7 +31,7 @@
     (ideographic-radical . 25) ; ⼘
     (ideographic-strokes . 0)
     (total-strokes      . 2)
-    (->same-ideograph
+    (->same
      ((=daikanwa         . 00069)      ; �����
       ))
     (<-ancient-ideograph

diff --git a/lisp/utf-2000/Ideograph-R026-Seal.el b/lisp/utf-2000/Ideograph-R026-Seal.el
index 08f46da..e8a0a8d 100644 (file)
--- a/lisp/utf-2000/Ideograph-R026-Seal.el
+++ b/lisp/utf-2000/Ideograph-R026-Seal.el
@@ -833,7 +833,7 @@
     (ideographic-radical . 26) ; ⼙
     (ideographic-strokes . 8)
     (total-strokes      . 10)
-    (->same-ideograph
+    (->same
      (:sources (chuuka-daijiten morohashi-daikanwa)
       :char    ((=daikanwa          . 02879)   ; �����
                 )

diff --git a/lisp/utf-2000/Ideograph-R027-Cliff.el b/lisp/utf-2000/Ideograph-R027-Cliff.el
index 2a530b3..a587967 100644 (file)
--- a/lisp/utf-2000/Ideograph-R027-Cliff.el
+++ b/lisp/utf-2000/Ideograph-R027-Cliff.el
@@ -1534,7 +1534,7 @@
   '((ideographic-radical . 27) ; ⼚
     (ideographic-strokes . 9)
     (total-strokes      . 11)
-    (->same-ideograph
+    (->same
      ((=daikanwa         . 44029)      ; �����
       ))
     (=ucs              . #x20A78)      ; 𠩸
@@ -3100,7 +3100,7 @@
     (ideographic-radical . 27) ; ⼚
     (ideographic-strokes . 16)
     (total-strokes      . 18)
-    (->same-ideograph
+    (->same
      ((ideographic-radical . 212)      ; ⿓
       (=daikanwa         . 48819)      ; �����
       ))

diff --git a/lisp/utf-2000/Ideograph-R029-Again.el b/lisp/utf-2000/Ideograph-R029-Again.el
index 36e8f03..2c8c0f1 100644 (file)
--- a/lisp/utf-2000/Ideograph-R029-Again.el
+++ b/lisp/utf-2000/Ideograph-R029-Again.el
@@ -2293,7 +2293,7 @@
     (->identical
      ((=cns11643-6       . #x537B)     ; �����
       ))
-    (->same-ideograph
+    (->same
      ((=daikanwa         . 16642)      ; �����
       ))
     (=ucs              . #x20B81)      ; 𠮁

diff --git a/lisp/utf-2000/Ideograph-R030-Mouth.el b/lisp/utf-2000/Ideograph-R030-Mouth.el
index 9f52165..cfe79fb 100644 (file)
--- a/lisp/utf-2000/Ideograph-R030-Mouth.el
+++ b/lisp/utf-2000/Ideograph-R030-Mouth.el
@@ -3745,7 +3745,7 @@
     (ideographic-radical . 30) ; ⼝
     (ideographic-strokes . 4)
     (total-strokes      . 7)
-    (->same-ideograph
+    (->same
      ((=ucs              . #x2F83E)    ; 呈
       ))
     (=ucs              . #x5448)       ; 呈
@@ -11360,7 +11360,7 @@
   '((ideographic-radical . 30) ; ⼝
     (ideographic-strokes . 7)
     (total-strokes      . 10)
-    (->same-ideograph
+    (->same
      ((=daikanwa         . 21715)      ; �����
       ))
     (hanyu-dazidian    1 626 2)
@@ -13216,7 +13216,7 @@
     (ideographic-radical . 30) ; ⼝
     (ideographic-strokes . 8)
     (total-strokes      . 11)
-    (->same-ideograph
+    (->same
      ((=ucs              . #x2F843)    ; 啓
       ))
     (=ucs              . #x5553)       ; 啓
@@ -17672,7 +17672,7 @@
                        (:radical       1 ; ⼀
                         :strokes       11))
     (total-strokes      . 12)
-    (->same-ideograph
+    (->same
      ((=cns11643-6       . #x472D)     ; �����
       ))
     (hanyu-dazidian    1 26 11)
@@ -25151,7 +25151,7 @@
                        (:radical       8 ; ⼇
                         :strokes       13))
     (total-strokes      . 15)
-    (->same-ideograph
+    (->same
      ((=daikanwa         . 04326)      ; �����
       ))
     (hanyu-dazidian    1 292 8)

diff --git a/lisp/utf-2000/Ideograph-R031-Enclosure.el b/lisp/utf-2000/Ideograph-R031-Enclosure.el
index e90ff1d..0ca9af4 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-ideograph
+    (->same
      ((=daikanwa         . 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 24470a2..2e3adca 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-ideograph
+    (->same
      ((=daikanwa         . 48957)      ; �����
       ))
     (hanyu-dazidian    1 436 7)

diff --git a/lisp/utf-2000/Ideograph-R036-Evening.el b/lisp/utf-2000/Ideograph-R036-Evening.el
index c20b883..24ae4ee 100644 (file)
--- a/lisp/utf-2000/Ideograph-R036-Evening.el
+++ b/lisp/utf-2000/Ideograph-R036-Evening.el
@@ -449,7 +449,7 @@
                        (:radical       8 ; ⼇
                         :strokes       8))
     (total-strokes      . 10)
-    (->same-ideograph
+    (->same
      ((=daikanwa         . 05775)      ; �����
       ))
     (hanyu-dazidian    1 287 5)
@@ -609,7 +609,7 @@
     (ideographic-radical . 36) ; ⼣
     (ideographic-strokes . 8)
     (total-strokes      . 11)
-    (->same-ideograph
+    (->same
      ((=daikanwa         . 14871)      ; �����
       ))
     (<-vulgar-ideograph

diff --git a/lisp/utf-2000/Ideograph-R040-Roof.el b/lisp/utf-2000/Ideograph-R040-Roof.el
index d3965e6..5132a53 100644 (file)
--- a/lisp/utf-2000/Ideograph-R040-Roof.el
+++ b/lisp/utf-2000/Ideograph-R040-Roof.el
@@ -1126,7 +1126,7 @@
     (ideographic-radical . 40) ; ⼧
     (ideographic-strokes . 5)
     (total-strokes      . 8)
-    (->same-ideograph
+    (->same
      (:sources (morohashi-daikanwa)
       :char    ((=daikanwa          . 07111)   ; �����
                 )

diff --git a/lisp/utf-2000/Ideograph-R043-Lame.el b/lisp/utf-2000/Ideograph-R043-Lame.el
index a4f286b..40fe5a2 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-ideograph
+    (->same
      ((=ucs              . #x2F875)    ; 尢
       ))
     (=ucs              . #x5C22)       ; 尢
@@ -606,10 +606,10 @@
   '((ideographic-radical . 43) ; ⼪
     (ideographic-strokes . 7)
     (total-strokes      . 10)
-    (->same-ideograph
+    (->same
      ((=daikanwa         . 07583)      ; �����
       ))
-    (->same-ideograph*sources
+    (->same*sources
      daikanwa)
     (=ucs              . #x21BED)      ; 𡯭
     (=cns11643-6       . #x366B)       ; �����

diff --git a/lisp/utf-2000/Ideograph-R044-Corpse.el b/lisp/utf-2000/Ideograph-R044-Corpse.el
index 0e54baf..a6eb386 100644 (file)
--- a/lisp/utf-2000/Ideograph-R044-Corpse.el
+++ b/lisp/utf-2000/Ideograph-R044-Corpse.el
@@ -831,7 +831,7 @@
     (ideographic-radical . 44) ; ⼫
     (ideographic-strokes . 6)
     (total-strokes      . 9)
-    (->same-ideograph
+    (->same
      ((ideographic-radical . 72)       ; ⽇
       (=daikanwa         . 13886)      ; �����
       ))
@@ -1617,7 +1617,7 @@
   '((ideographic-radical . 44) ; ⼫
     (ideographic-strokes . 9)
     (total-strokes      . 12)
-    (->same-ideograph
+    (->same
      ((=daikanwa         . 07001)      ; �����
       ))
     (=ucs              . #x21CAA)      ; 𡲪

diff --git a/lisp/utf-2000/Ideograph-R045-Sprout.el b/lisp/utf-2000/Ideograph-R045-Sprout.el
index 7905d1d..ff0d76a 100644 (file)
--- a/lisp/utf-2000/Ideograph-R045-Sprout.el
+++ b/lisp/utf-2000/Ideograph-R045-Sprout.el
@@ -297,7 +297,7 @@
   '((ideographic-radical . 45) ; ⼬
     (ideographic-strokes . 7)
     (total-strokes      . 10)
-    (->same-ideograph
+    (->same
      ((=daikanwa         . 00157)      ; �����
       ))
     (<-original-ideograph

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

diff --git a/lisp/utf-2000/Ideograph-R047-River.el b/lisp/utf-2000/Ideograph-R047-River.el
index a832e14..0bedca0 100644 (file)
--- a/lisp/utf-2000/Ideograph-R047-River.el
+++ b/lisp/utf-2000/Ideograph-R047-River.el
@@ -241,7 +241,7 @@
   '((ideographic-radical . 47) ; ⼮
     (ideographic-strokes . 4)
     (total-strokes      . 7)
-    (->same-ideograph
+    (->same
      ((=daikanwa         . 03081)      ; �����
       ))
     (hanyu-dazidian    2 1097 16)

diff --git a/lisp/utf-2000/Ideograph-R058-Snout.el b/lisp/utf-2000/Ideograph-R058-Snout.el
index c1e7455..6ab0513 100644 (file)
--- a/lisp/utf-2000/Ideograph-R058-Snout.el
+++ b/lisp/utf-2000/Ideograph-R058-Snout.el
@@ -216,7 +216,7 @@
     (->identical
      ((=cns11643-6       . #x2D32)     ; �����
       ))
-    (->same-ideograph
+    (->same
      ((=daikanwa         . 21759)      ; �����
       ))
     (=ucs              . #x22456)      ; 𢑖

diff --git a/lisp/utf-2000/Ideograph-R059-Bristle.el b/lisp/utf-2000/Ideograph-R059-Bristle.el
index dcd0fe9..0e14fb9 100644 (file)
--- a/lisp/utf-2000/Ideograph-R059-Bristle.el
+++ b/lisp/utf-2000/Ideograph-R059-Bristle.el
@@ -441,7 +441,7 @@
     (ideographic-radical . 59) ; ⼺
     (ideographic-strokes . 8)
     (total-strokes      . 11)
-    (->same-ideograph
+    (->same
      (:sources (morohashi-daikanwa)
       :char    ((=daikanwa          . 09993)   ; �����
                 )

diff --git a/lisp/utf-2000/Ideograph-R060-Step.el b/lisp/utf-2000/Ideograph-R060-Step.el
index 4f67954..e78082d 100644 (file)
--- a/lisp/utf-2000/Ideograph-R060-Step.el
+++ b/lisp/utf-2000/Ideograph-R060-Step.el
@@ -845,10 +845,10 @@
     (ideographic-radical . 60) ; ⼻
     (ideographic-strokes . 6)
     (total-strokes      . 9)
-    (->same-ideograph
+    (->same
      ((=daikanwa         . 00522)      ; �����
       ))
-    (->same-ideograph*sources
+    (->same*sources
      chuanpian daikanwa)
     (=daikanwa         . 10104)        ; �����
     (=jef-china3       . #x4DB3)       ; �����

diff --git a/lisp/utf-2000/Ideograph-R064-Hand.el b/lisp/utf-2000/Ideograph-R064-Hand.el
index 09f7a9e..911d0a3 100644 (file)
--- a/lisp/utf-2000/Ideograph-R064-Hand.el
+++ b/lisp/utf-2000/Ideograph-R064-Hand.el
@@ -14530,7 +14530,7 @@
     (ideographic-radical . 64) ; ⼿
     (ideographic-strokes . 12)
     (total-strokes      . 15)
-    (->same-ideograph
+    (->same
      ((=ucs              . #x2F8C5)    ; 撝
       ))
     (=ucs              . #x649D)       ; 撝
@@ -19984,7 +19984,7 @@
   '((ideographic-radical . 64) ; ⼿
     (ideographic-strokes . 19)
     (total-strokes      . 22)
-    (->same-ideograph
+    (->same
      ((=daikanwa         . 26763)      ; �����
       ))
     (hanyu-dazidian    3 1991 1)

diff --git a/lisp/utf-2000/Ideograph-R072-Sun.el b/lisp/utf-2000/Ideograph-R072-Sun.el
index 8416d82..386681e 100644 (file)
--- a/lisp/utf-2000/Ideograph-R072-Sun.el
+++ b/lisp/utf-2000/Ideograph-R072-Sun.el
@@ -2428,7 +2428,7 @@
     (ideographic-radical . 72) ; ⽇
     (ideographic-strokes . 6)
     (total-strokes      . 10)
-    (->same-ideograph
+    (->same
      ((=daikanwa         . 14294)      ; �����
       ))
     (=cns11643-6       . #x3836)       ; �����

diff --git a/lisp/utf-2000/Ideograph-R075-Tree.el b/lisp/utf-2000/Ideograph-R075-Tree.el
index bef9373..b497142 100644 (file)
--- a/lisp/utf-2000/Ideograph-R075-Tree.el
+++ b/lisp/utf-2000/Ideograph-R075-Tree.el
@@ -7671,7 +7671,7 @@
   '((ideographic-radical . 75) ; ⽊
     (ideographic-strokes . 7)
     (total-strokes      . 11)
-    (->same-ideograph
+    (->same
      ((=daikanwa         . 05784)      ; �����
       ))
     (<-vulgar-ideograph

diff --git a/lisp/utf-2000/Ideograph-R085-Water.el b/lisp/utf-2000/Ideograph-R085-Water.el
index 2353fe3..fe6bd94 100644 (file)
--- a/lisp/utf-2000/Ideograph-R085-Water.el
+++ b/lisp/utf-2000/Ideograph-R085-Water.el
@@ -4626,7 +4626,7 @@
     (ideographic-radical . 85) ; ⽔
     (ideographic-strokes . 6)
     (total-strokes      . 9)
-    (->same-ideograph
+    (->same
      (:sources (morohashi-daikanwa)
       :char    ((=daikanwa          . 17427)   ; �����
                 )

diff --git a/lisp/utf-2000/Ideograph-R087-Claw.el b/lisp/utf-2000/Ideograph-R087-Claw.el
index 5f11cc2..883548e 100644 (file)
--- a/lisp/utf-2000/Ideograph-R087-Claw.el
+++ b/lisp/utf-2000/Ideograph-R087-Claw.el
@@ -355,10 +355,10 @@
       ))
     (->ancient-ideograph*sources
      daikanwa)
-    (->same-ideograph
+    (->same
      ((=daikanwa         . 00214)      ; �����
       ))
-    (->same-ideograph*sources
+    (->same*sources
      shuowen daikanwa)
     (=gt               . 25281)        ; ������
     (=gt-k             . 09318)        ; ������
@@ -417,7 +417,7 @@
     (->identical
      ((=cns11643-6       . #x4743)     ; �����
       ))
-    (->same-ideograph
+    (->same
      ((=daikanwa         . 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 0430f7e..15fd263 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-ideograph
+    (->same
      ((=daikanwa         . 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 3f887d2..21c307a 100644 (file)
--- a/lisp/utf-2000/Ideograph-R102-Field.el
+++ b/lisp/utf-2000/Ideograph-R102-Field.el
@@ -178,10 +178,10 @@
     (ideographic-radical . 102)        ; ⽥
     (ideographic-strokes . 2)
     (total-strokes      . 7)
-    (->same-ideograph
+    (->same
      ((=daikanwa         . 21735)      ; �����
       ))
-    (->same-ideograph*sources
+    (->same*sources
      daikanwa)
     (=ucs              . #x753C)       ; 甼
     (=jis-x0208                . #x6136)       ; �����

diff --git a/lisp/utf-2000/Ideograph-R109-Eye.el b/lisp/utf-2000/Ideograph-R109-Eye.el
index fe5fc86..86b0bfb 100644 (file)
--- a/lisp/utf-2000/Ideograph-R109-Eye.el
+++ b/lisp/utf-2000/Ideograph-R109-Eye.el
@@ -3397,7 +3397,7 @@
     (ideographic-radical . 109)        ; ⽬
     (ideographic-strokes . 7)
     (total-strokes      . 12)
-    (->same-ideograph
+    (->same
      ((=ucs              . #x2F949)    ; 䀹
       ))
     (=ucs              . #x4039)       ; 䀹

diff --git a/lisp/utf-2000/Ideograph-R115-Grain.el b/lisp/utf-2000/Ideograph-R115-Grain.el
index 976a500..78e8de0 100644 (file)
--- a/lisp/utf-2000/Ideograph-R115-Grain.el
+++ b/lisp/utf-2000/Ideograph-R115-Grain.el
@@ -5370,7 +5370,7 @@
     (ideographic-radical . 115)        ; ⽲
     (ideographic-strokes . 16)
     (total-strokes      . 21)
-    (->same-ideograph
+    (->same
      ((=daikanwa         . 48869)      ; �����
       ))
     (<-ancient-ideograph

diff --git a/lisp/utf-2000/Ideograph-R118-Bamboo.el b/lisp/utf-2000/Ideograph-R118-Bamboo.el
index ebb5809..175187e 100644 (file)
--- a/lisp/utf-2000/Ideograph-R118-Bamboo.el
+++ b/lisp/utf-2000/Ideograph-R118-Bamboo.el
@@ -3554,10 +3554,10 @@
     (ideographic-radical@cns . 118)    ; ⽵
     (ideographic-strokes@cns . 8)
     (total-strokes      . 14)
-    (->same-ideograph
+    (->same
      ((=daikanwa         . 26149)      ; �����
       ))
-    (->same-ideograph*sources
+    (->same*sources
      kouin kangxi daikanwa)
     (ideographic-structure
      ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER LEFT TO RIGHT")

diff --git a/lisp/utf-2000/Ideograph-R120-Silk.el b/lisp/utf-2000/Ideograph-R120-Silk.el
index aea2022..d882390 100644 (file)
--- a/lisp/utf-2000/Ideograph-R120-Silk.el
+++ b/lisp/utf-2000/Ideograph-R120-Silk.el
@@ -6362,7 +6362,7 @@
                         :strokes       11
                         :sources       (ucs)))
     (total-strokes      . 13)
-    (->same-ideograph
+    (->same
      ((=daikanwa         . 49471)      ; �����
       ))
     (hanyu-dazidian    1 210 15)

diff --git a/lisp/utf-2000/Ideograph-R123-Sheep.el b/lisp/utf-2000/Ideograph-R123-Sheep.el
index f3e08a3..5049f0e 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-ideograph
+    (->same
      ((=daikanwa         . 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 4a09953..9dcd9ea 100644 (file)
--- a/lisp/utf-2000/Ideograph-R124-Feather.el
+++ b/lisp/utf-2000/Ideograph-R124-Feather.el
@@ -4562,7 +4562,7 @@
     (ideographic-radical . 124)        ; ⽻
     (ideographic-strokes . 11)
     (total-strokes      . 17)
-    (->same-ideograph
+    (->same
      (:char    ((=daikanwa          . 28818)   ; �����
                 )
       :sources (morohashi-daikanwa)))

diff --git a/lisp/utf-2000/Ideograph-R128-Ear.el b/lisp/utf-2000/Ideograph-R128-Ear.el
index c4337e7..79645f5 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-ideograph
+    (->same
      ((=big5-cdp         . #x8C5B)     ; ������
       ))
     (=gt-k             . 04926)        ; ������
@@ -168,7 +168,7 @@
   '((ideographic-radical . 128)        ; ⽿
     (ideographic-strokes . 2)
     (total-strokes      . 8)
-    (->same-ideograph
+    (->same
      ((=gt-k             . 04926)      ; ������
       ))
     (=big5-cdp         . #x8C5B)       ; ������

diff --git a/lisp/utf-2000/Ideograph-R130-Meat.el b/lisp/utf-2000/Ideograph-R130-Meat.el
index 3669866..ffa09ad 100644 (file)
--- a/lisp/utf-2000/Ideograph-R130-Meat.el
+++ b/lisp/utf-2000/Ideograph-R130-Meat.el
@@ -10416,7 +10416,7 @@
     (->identical
      ((=cns11643-6       . #x5D5C)     ; �����
       ))
-    (->same-ideograph
+    (->same
      ((=daikanwa         . 49158)      ; �����
       ))
     (hanyu-dazidian    3 2104 5)
@@ -10427,7 +10427,7 @@
     (ideographic-radical . 130)        ; ⾁
     (ideographic-strokes . 10)
     (total-strokes      . 14)
-    (->same-ideograph
+    (->same
      ((=daikanwa         . 49158)      ; �����
       )
      ((=cns11643-6       . #x5D5C)     ; �����
@@ -11260,7 +11260,7 @@
     (ideographic-radical . 130)        ; ⾁
     (ideographic-strokes . 11)
     (total-strokes      . 15)
-    (->same-ideograph
+    (->same
      ((=jis-x0208        . #x6733)     ; �����
       ))
     (=ucs              . #x81A4)       ; 膤

diff --git a/lisp/utf-2000/Ideograph-R135-Tongue.el b/lisp/utf-2000/Ideograph-R135-Tongue.el
index d85568d..0abb3c3 100644 (file)
--- a/lisp/utf-2000/Ideograph-R135-Tongue.el
+++ b/lisp/utf-2000/Ideograph-R135-Tongue.el
@@ -445,10 +445,10 @@
     (ideographic-radical . 135)        ; ⾆
     (ideographic-strokes . 7)
     (total-strokes      . 13)
-    (->same-ideograph
+    (->same
      ((=daikanwa         . 38638)      ; �����
       ))
-    (->same-ideograph*sources
+    (->same*sources
      daikanwa)
     (<-vulgar-ideograph
      (:char    ((=daikanwa          . 38671)   ; �����

diff --git a/lisp/utf-2000/Ideograph-R140-Grass.el b/lisp/utf-2000/Ideograph-R140-Grass.el
index d4059b1..c854618 100644 (file)
--- a/lisp/utf-2000/Ideograph-R140-Grass.el
+++ b/lisp/utf-2000/Ideograph-R140-Grass.el
@@ -4451,7 +4451,7 @@
     (->identical
      ((=cns11643-6       . #x333E)     ; �����
       ))
-    (->same-ideograph
+    (->same
      ((=daikanwa         . 23187)      ; �����
       ))
     (=ucs              . #x26B5D)      ; 𦭝
@@ -37526,7 +37526,7 @@
     (->identical
      ((=cns11643-7       . #x6248)     ; �����
       ))
-    (->same-ideograph
+    (->same
      ((=daikanwa         . 24881)      ; �����
       ))
     (hanyu-dazidian    5 3339 4)

diff --git a/lisp/utf-2000/Ideograph-R142-Insect.el b/lisp/utf-2000/Ideograph-R142-Insect.el
index aa0b1fb..e16aa58 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-ideograph
+    (->same
      ((=ucs              . #x2F9BB)    ; 蝹
       ))
     (=ucs              . #x8779)       ; 蝹

diff --git a/lisp/utf-2000/Ideograph-R145-Clothes.el b/lisp/utf-2000/Ideograph-R145-Clothes.el
index 500ecbd..c2bce35 100644 (file)
--- a/lisp/utf-2000/Ideograph-R145-Clothes.el
+++ b/lisp/utf-2000/Ideograph-R145-Clothes.el
@@ -113,7 +113,7 @@
     (ideographic-radical . 145)        ; ⾐
     (ideographic-strokes . 2)
     (total-strokes      . 8)
-    (->same-ideograph
+    (->same
      ((=daikanwa         . 01911)      ; �����
       )
      ((=ucs              . #x521D)     ; 初

diff --git a/lisp/utf-2000/Ideograph-R170-Mound.el b/lisp/utf-2000/Ideograph-R170-Mound.el
index 95bec35..33f808e 100644 (file)
--- a/lisp/utf-2000/Ideograph-R170-Mound.el
+++ b/lisp/utf-2000/Ideograph-R170-Mound.el
@@ -1512,10 +1512,10 @@
   '((ideographic-radical . 170)        ; ⾩
     (ideographic-strokes . 7)
     (total-strokes      . 10)
-    (->same-ideograph
+    (->same
      ((=daikanwa         . 41704)      ; �����
       ))
-    (->same-ideograph*sources
+    (->same*sources
      zhonghua-dazidian daikanwa)
     (=daikanwa         . 41676)        ; �����
     ))
@@ -4543,7 +4543,7 @@
   '((ideographic-radical . 170)        ; ⾩
     (ideographic-strokes . 23)
     (total-strokes      . 31)
-    (->same-ideograph
+    (->same
      ((=daikanwa         . 19650)      ; �����
       ))
     (=ucs              . #x28F75)      ; 𨽵

diff --git a/lisp/utf-2000/Ideograph-R177-Leather.el b/lisp/utf-2000/Ideograph-R177-Leather.el
index e839017..9bfba94 100644 (file)
--- a/lisp/utf-2000/Ideograph-R177-Leather.el
+++ b/lisp/utf-2000/Ideograph-R177-Leather.el
@@ -69,7 +69,7 @@
   '((ideographic-radical . 177)        ; ⾰
     (ideographic-strokes . 3)
     (total-strokes      . 12)
-    (->same-ideograph
+    (->same
      (:sources (morohashi-daikanwa)
       :char    ((=daikanwa          . 29262)   ; �����
                 )

diff --git a/lisp/utf-2000/Ideograph-R184-Eat.el b/lisp/utf-2000/Ideograph-R184-Eat.el
index 5a2a270..5dce0fd 100644 (file)
--- a/lisp/utf-2000/Ideograph-R184-Eat.el
+++ b/lisp/utf-2000/Ideograph-R184-Eat.el
@@ -334,7 +334,7 @@
     (ideographic-radical . 184)        ; ⾷
     (ideographic-strokes . 2)
     (total-strokes      . 11)
-    (->same-ideograph
+    (->same
      ((=daikanwa         . 02979)      ; �����
       ))
     (=daikanwa         . 44029)        ; �����
@@ -481,10 +481,10 @@
     (ideographic-radical . 184)        ; ⾷
     (ideographic-strokes . 3)
     (total-strokes      . 12)
-    (->same-ideograph
+    (->same
      ((=daikanwa         . 44433)      ; �����
       ))
-    (->same-ideograph*sources
+    (->same*sources
      daikanwa)
     (=gt               . 59087)        ; ������
     (=gt-pj-8          . #x4646)       ; ������

diff --git a/lisp/utf-2000/Ideograph-R186-Fragrant.el b/lisp/utf-2000/Ideograph-R186-Fragrant.el
index d48562b..59f1303 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-ideograph
+    (->same
      ((=ucs              . #x2FA05)    ; 馧
       ))
     (=ucs              . #x99A7)       ; 馧

diff --git a/lisp/utf-2000/Ideograph-R196-Bird.el b/lisp/utf-2000/Ideograph-R196-Bird.el
index 01fdee9..0bd3b7c 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-ideograph
+    (->same
      ((=ucs              . #x2FA0E)    ; 䳭
       ))
     (=ucs              . #x4CED)       ; 䳭

diff --git a/lisp/utf-2000/Ideograph-R203-Black.el b/lisp/utf-2000/Ideograph-R203-Black.el
index c731b0a..fed1187 100644 (file)
--- a/lisp/utf-2000/Ideograph-R203-Black.el
+++ b/lisp/utf-2000/Ideograph-R203-Black.el
@@ -176,7 +176,7 @@
     (ideographic-radical . 203)        ; ⿊
     (ideographic-strokes . 3)
     (total-strokes      . 15)
-    (->same-ideograph
+    (->same
      ((=daikanwa         . 05469)      ; �����
       ))
     (=cns11643-1       . #x702E)       ; �����

diff --git a/lisp/utf-2000/Ideograph-R213-Turtle.el b/lisp/utf-2000/Ideograph-R213-Turtle.el
index afaeba3..3cd2214 100644 (file)
--- a/lisp/utf-2000/Ideograph-R213-Turtle.el
+++ b/lisp/utf-2000/Ideograph-R213-Turtle.el
@@ -65,7 +65,7 @@
     (ideographic-radical . 213)        ; ⿔
     (ideographic-strokes . 0)
     (total-strokes      . 11)
-    (->same-ideograph
+    (->same
      ((=daikanwa         . 00210)      ; �����
       ))
     (shinjigen-1       . 9917)
@@ -241,7 +241,7 @@
     (ideographic-radical . 213)        ; ⿔
     (ideographic-strokes . 5)
     (total-strokes      . 21)
-    (->same-ideograph
+    (->same
      ((=daikanwa         . 25381)      ; �����
       ))
     (<-ancient-ideograph