emacs上でファンクションキーF5にて現在編集中のschemeスクリプトを実行するには

emacs上でファンクションキーF5にて現在編集中のschemeスクリプトを実行するには
.emacsに以下を書くだけ

(add-hook 'scheme-mode-hook (lambda () (local-set-key [f5] "\C-x1\C-x\C-s\M-xrun-scheme\C-m\C-m\C-xb\C-m\C-x4b\C-m\C-xo\C-c\C-l\C-m")))


おとなしく関数名で書いた方が早かったかなぁ。
まあ、一行で可搬性も担保できるしいいか。


キーボードマクロっぽくて癖になりそうだ。