Using lisp code in query-replace-regexp

Using lisp code in query-replace-regexp

[Julien Cubizolles]

I can use the following replace string (for lack of a better term) with
query-replace-regexp

--8<---------------cut here---------------start------------->8---
\,(if (equal \2 nil) "+" (concat "+ " \2 " ::"))
--8<---------------cut here---------------end--------------->8---

How can I input it in a lisp function like:

--8<---------------cut here---------------start------------->8---
(defun jc-item-to-plus (Begin End)
  "Replace \\item by +"
  (interactive "r")
  (query-replace-regexp Begin End "some_standard_regexp" (if (equal \2 nil) "+" (concat "+ " \2 " ::")))
  )
--8<---------------cut here---------------end--------------->8---

Julien.

Re: Using lisp code in query-replace-regexp

[Andreas Röhler]

On 04.11.2014 15:49, Julien Cubizolles wrote:
> I can use the following replace string (for lack of a better term) with
> query-replace-regexp
>
> --8<---------------cut here---------------start------------->8---
> \,(if (equal \2 nil) "+" (concat "+ " \2 " ::"))
> --8<---------------cut here---------------end--------------->8---
>
> How can I input it in a lisp function like:
>
> --8<---------------cut here---------------start------------->8---
> (defun jc-item-to-plus (Begin End)
>    "Replace \\item by +"
>    (interactive "r")
>    (query-replace-regexp Begin End "some_standard_regexp" (if (equal \2 nil) "+" (concat "+ " \2 " ::")))
>    )
> --8<---------------cut here---------------end--------------->8---
>
> Julien.
>
>
>

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 ...

etc.

Re: Using lisp code in query-replace-regexp

[Julien Cubizolles]

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.