いがいが日記

_ Emacsで同じコマンドを連続実行したら繰り返したい

Emacsdで「1文字入力して、その文字まで移動」というコマンドが便利なのでネットから拾ってきてとても便利につかっている。ありがとうございます。

さらに、思った場所まで到達しなかったときには同じコマンドを連続実行したい。どうしようかと考えてこんなelispを書いた。

(defun move-forward-char-repeatable ()
   (interactive)
   (if (eq last-command this-command)
     (command-execute 'previous-command)
   (command-execute 'move-forward-char)))

move-forward-char が「1文字入力して、その文字まで移動」コマンド。last-command(前回) と this-command(今回) が一致したらprevious-commandを実行（繰り返し）。初めてのときは一致しないので move-forward-char を実行。コマンド実行の描き方が分からなかったので @hidaqa 先生に教えてもらった。ありがとうございます！！

コード全体はこちら。

https://gist.github.com/igaiga/8680014