Re: auto correction propagation mode

[Plamen Tanovski]

Andreas Röhler <andreas.roehler@online.de> writes:

> Just to indicate a direction how this could be done IMHO:
>
> (defun allkorr () 
>   (interactive "*")
>   (let* ((wap (word-at-point))
>         (replmt (read-from-minibuffer "Correction: " wap)))
>     (define-abbrev text-mode-abbrev-table wap replmt)
>     (expand-region-abbrevs (point-min) (point-max))))
>
>
> It uses the abbrev facility, prompts for the correct
> word, which will be registered as an expansion for the
> then wrong word, conceived as an abbrev in the text.
>
> `expand-region-abbrevs' will query you then for every
> replacement. This might be abolished still, bound to an
> argument etc.


Thanks a lot. This is a very interessting approach. The best thing is, it
works on whole words only.

Best regards