Заставить flyspell идти до конца слова при автозамене слова в Emacs

Question

Меня раздражает, что flyspell, похоже, остается в середине слова, когда вы выполняете команду flyspell-auto-correct-word. Можно ли это изменить, чтобы заставить команду идти до конца слова после выполнения команды? Это может быть так же просто, как установить привязку ключа к auto-complete-word и затем move-forward-word, что я знаю, как сделать. Но это не будет работать во всех случаях, потому что иногда он помещает курсор за словом, если слово автозаполнения было меньше, чем напечатанное слово. Любая помощь в этом была бы великолепна.

Answer 1

Попробуйте этот код:

(eval-after-load "flyspell"
  '(defun flyspell-ajust-cursor-point (save cursor-location old-max)
     (when (not (looking-at "\\b"))
       (forward-word))))

Протестировано с версией flyspell 1.7k и версией, поставляемой с Emacs 23.2.

Answer 2

Я просмотрел (defun flyspell-auto-correct-word ...) и не вижу там хороших хуков или других пунктов настройки, поэтому я думаю, что вам лучше всего использовать C-h f defadvice:

(defadvice flyspell-auto-correct-word (after flyspell-forward-word activate) (flyspell-goto-next-error))