Re: Using lisp code in query-replace-regexp

[Julien Cubizolles <j.cubizolles@free.fr>]

Andreas Röhler <andreas.roehler@easy-emacs.de> writes:

> When writing a program, for example start with
>
> (narrow-to-region beg end)
> (goto-char (point-min))
> (while (re-search-forward RE end)
> (replace-match ...

Thanks for this example, it allows me to add the test I needed in the
mix. However, I'd rather be prompted for each replace. I tried with
replace-match-maybe-edit:

--8<---------------cut here---------------start------------->8---
(defun test_gen (begin end from to)
  (save-excursion
    (save-restriction
      (let (deactivate-mark)
	(narrow-to-region begin end)
	(goto-char (point-min))
	(while  (re-search-forward from end t)
	  (replace-match-maybe-edit to t nil nil (match-data) nil)))
      )))
--8<---------------cut here---------------end--------------->8---

but it messes up the excursion. If I use replace-match, the excursion is
preserved however.

Julien.