Re: Interative batch query-replace question

[Ke Lu <lu@luxdo.jp>]

Sorry, I forgot to move point to the begining of buffer,
It is ok now.

But dired-do-query-replace-regexp still have some peoblem.
My function looks like:
(defadvice query-replace-regexp (before
move-start-after-query-replace-regexp activate)
  (goto-char (point-min)))
  
  (defun batch-query-replace-regexp()
    (interactive)
      (switch-to-buffer "*Find*")
      (dired-do-query-replace-regexp "jp\\.co" "jp.co2")
      (switch-to-buffer "*Find*")
       (dired-do-query-replace-regexp "java" "java2")
  )

But the second one can't be executed and there is not any
error message.
What is the reason?

Ke Lu <lu@luxdo.jp> writes:

> I want to do a Interative batch query-replace which looks like:
> (defun a-batch-query-relace()
> (interactive)
> (query-replace "jp.co" "jp.co2")
> (query-replace "java" "java2")
> .....
> )
> But only first query-replace be excuted,I would like  to know why
> and how to solve it.