Re: regexp repacement, how to present replacement to user?

[Stefan Monnier]

> (let ((from "\\([[:alpha:]]+\\)-\\([[:alpha:]]+\\)")
>       (to "\\1 \\2"))
>   (while (re-search-forward from nil t)
>     (if (y-or-n-p (format "Replace %s with %s "
>                           (match-string 0)
>                           (replace-regexp-in-string from to (match-string 
> 0))))
>         (replace-match to nil nil))))

This work 99% with the last 1% being due to failure in boundary conditions
(e.g. if the pattern starts with "\\>").


        Stefan