key-chord(っぽいもの)の修正

少しずつ微修正していたが、今回は面倒なエラーを発見してしまったので書いておく。

コマンドを入力したときの文字を(svref (get-recent-keys) (1- (length (get-recent-keys))))と取得していたのだが、これでは(get-recent-keys)が空だった場合に問題となる。実際、最初に実行したコマンドがメニューやツールバーからだった場合エラーが起こる。

解決は単純で、self-insert-commandが行っているように*last-command-char*を使えばいい。というわけで、バージョンが今回で004となっている。