VisualStudio2005のHOMEキー

lispの学習がてら作ってみた。

(defun hs-beginning-of-line ()
  "VisualStudioのHOMEキー"
  (interactive)
  (let ((cc (point)))
    (beginning-of-line)
    (if (= cc (point))
	(back-to-indentation))))

カーソルを行頭へ移動してカーソルがまったく動いていない=すでに行頭に居たのであればインデント的な行頭へ移動。