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)

参考：やさしいEmacs‐Lisp講座