Re: Auto-correcting proper nouns with flyspell?

[Andreas Politz]

d@teklibre.org (Dave Täht) writes:

> Is there a way to make Emacs (flyspell) automatically capitalize proper
> nouns that have no other equivalent, instead of marking them in yellow
> with an underscore?
>

Since there is `flyspell-incorrect-hook', you can do all kinds of
things.

(defun flyspell-correct-case (beg end info)
  (when (and (consp info)
             (equal (downcase (car info))
                    (downcase (caaddr info))))
    (save-excursion
      (delete-region beg end)
      (insert (caaddr info)))))

(add-hook 'flyspell-incorrect-hook 'flyspell-correct-case))

-ap