forward-to-wordは漢字混じりの文章でうまく動かないので、
私はこんな感じのコマンドを使っている。戻る時は只のbackward-wordを使う。
(defun my-forward-word ()
(if (eq (char-syntax (following-char)) ?w) (forward-word 2) (forward-word))
(when (eq (char-syntax (preceding-char)) ?w) (forward-word -1)))