行頭と行の最初のインデント位置に移動を C-a でくりかえす

どこかで見たけれども、探すのが面倒だったので書いてみました。Emacs 24 でのみ動作をかくにん。

(global-set-key "\C-a" '(lambda (arg)
			  (interactive "^p")
			  (cond
			   ((bolp)
			    (call-interactively 'back-to-indentation))
			   (t
			    (move-beginning-of-line arg)))))

これで C-a を連打するだけで、「行頭」→「行の最初のインデント位置」→「行頭」以下繰り返しとなるはずー。
ただそれだけ。

更新時刻

- 2011/9/24/02:40