C-a で「行頭」と「非空白文字の先頭」をトグル的に移動

Emacs で「行頭」への移動は C-a で「非空白文字の先頭」への移動は M-m というキーバインドが 割り当てられているが M-m がなかなかなじまない。 どこかのブログで C-a で「行頭」と「非空白文字の先頭」をトグル的に移動させるというアイデアを見た。 なるほど。 アイデアを拝借して覚えたての Emacs Lisp で書いてみる。 (defun move-beginning-alt() (interactive) (if (bolp) (back-to-indentation) (beginning-of-line))) (define-key global-map "\C-a" 'move-beginning-alt)

[tjun1]

これだったかな。