>>123
"keyboard-translate-table"でググって一番上にあった、
ttp://flex.ee.uec.ac.jp/texi/faq-jp/faq-jp_78.htmlにある関数をつかって、

(swap-keys 10 13)

で望みどおりの動作をえられました。

FAQだったのですね。お恥ずかしい…
お手数おかけいたしました。
アドバイス、本当にありがとうございました。