From f981e34e45bb4f9bd33b02a0b0b0a05eaa3db2fd Mon Sep 17 00:00:00 2001 From: tomo Date: Wed, 10 Mar 2004 05:35:44 +0000 Subject: [PATCH] Rename `->same-ideograph' to `->same'. --- lisp/utf-2000/Ideograph-R001-One.el | 6 +++--- lisp/utf-2000/Ideograph-R002-Line.el | 6 +++--- lisp/utf-2000/Ideograph-R003-Dot.el | 4 ++-- lisp/utf-2000/Ideograph-R004-Slash.el | 12 ++++++------ lisp/utf-2000/Ideograph-R005-Second.el | 2 +- lisp/utf-2000/Ideograph-R008-Lid.el | 8 ++++---- lisp/utf-2000/Ideograph-R009-Man.el | 12 ++++++------ lisp/utf-2000/Ideograph-R015-Ice.el | 2 +- lisp/utf-2000/Ideograph-R017-Open-Box.el | 2 +- lisp/utf-2000/Ideograph-R018-Knife.el | 8 ++++---- lisp/utf-2000/Ideograph-R019-Power.el | 4 ++-- lisp/utf-2000/Ideograph-R020-Wrap.el | 2 +- lisp/utf-2000/Ideograph-R022-Right-Open-Box.el | 2 +- lisp/utf-2000/Ideograph-R023-Hiding-Enclosure.el | 4 ++-- lisp/utf-2000/Ideograph-R025-Divination.el | 2 +- lisp/utf-2000/Ideograph-R026-Seal.el | 2 +- lisp/utf-2000/Ideograph-R027-Cliff.el | 4 ++-- lisp/utf-2000/Ideograph-R029-Again.el | 2 +- lisp/utf-2000/Ideograph-R030-Mouth.el | 10 +++++----- lisp/utf-2000/Ideograph-R031-Enclosure.el | 2 +- lisp/utf-2000/Ideograph-R032-Earth.el | 2 +- lisp/utf-2000/Ideograph-R036-Evening.el | 4 ++-- lisp/utf-2000/Ideograph-R040-Roof.el | 2 +- lisp/utf-2000/Ideograph-R043-Lame.el | 6 +++--- lisp/utf-2000/Ideograph-R044-Corpse.el | 4 ++-- lisp/utf-2000/Ideograph-R045-Sprout.el | 2 +- lisp/utf-2000/Ideograph-R046-Mountain.el | 2 +- lisp/utf-2000/Ideograph-R047-River.el | 2 +- lisp/utf-2000/Ideograph-R058-Snout.el | 2 +- lisp/utf-2000/Ideograph-R059-Bristle.el | 2 +- lisp/utf-2000/Ideograph-R060-Step.el | 4 ++-- lisp/utf-2000/Ideograph-R064-Hand.el | 4 ++-- lisp/utf-2000/Ideograph-R072-Sun.el | 2 +- lisp/utf-2000/Ideograph-R075-Tree.el | 2 +- lisp/utf-2000/Ideograph-R085-Water.el | 2 +- 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-R115-Grain.el | 2 +- lisp/utf-2000/Ideograph-R118-Bamboo.el | 4 ++-- lisp/utf-2000/Ideograph-R120-Silk.el | 2 +- lisp/utf-2000/Ideograph-R123-Sheep.el | 2 +- lisp/utf-2000/Ideograph-R124-Feather.el | 2 +- lisp/utf-2000/Ideograph-R128-Ear.el | 4 ++-- lisp/utf-2000/Ideograph-R130-Meat.el | 6 +++--- lisp/utf-2000/Ideograph-R135-Tongue.el | 4 ++-- lisp/utf-2000/Ideograph-R140-Grass.el | 4 ++-- lisp/utf-2000/Ideograph-R142-Insect.el | 2 +- lisp/utf-2000/Ideograph-R145-Clothes.el | 2 +- lisp/utf-2000/Ideograph-R170-Mound.el | 6 +++--- lisp/utf-2000/Ideograph-R177-Leather.el | 2 +- lisp/utf-2000/Ideograph-R184-Eat.el | 6 +++--- lisp/utf-2000/Ideograph-R186-Fragrant.el | 2 +- lisp/utf-2000/Ideograph-R196-Bird.el | 2 +- lisp/utf-2000/Ideograph-R203-Black.el | 2 +- lisp/utf-2000/Ideograph-R213-Turtle.el | 4 ++-- 57 files changed, 105 insertions(+), 105 deletions(-) diff --git a/lisp/utf-2000/Ideograph-R001-One.el b/lisp/utf-2000/Ideograph-R001-One.el index c023e9d..0ada5a8 100644 --- 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 --- 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 --- 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 --- 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 --- 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 --- 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 --- 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 --- 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 --- 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 --- 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 --- 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 --- 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 --- 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 --- 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 --- 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 --- 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 --- 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 --- 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 --- 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 --- 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 --- 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 --- 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 --- 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 --- 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 --- 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 --- 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 --- 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 --- 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 --- 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 --- 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 --- 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 --- 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 --- 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 --- 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 --- 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 --- 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 --- 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 --- 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 --- 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 --- 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 --- 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 --- 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 --- 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 --- 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 --- 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 --- 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 --- 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 --- 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 --- 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 --- 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 --- 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 --- 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 --- 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 --- 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 --- 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 --- 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 --- 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 -- 1.7.10.4