もう一つ変なことがわかりました。 mode-line-formatにて文字を表示する場合、 (message "(%s) Press any key to stop it: " index) だとうまくいきますが、 (message "(%d) Press any key to stop it: " index) だとだめでした。？？？