Using interactive functions in functions

[Bill Wohler <wohler@newt.com>]

  Consider the following fragment which runs tags-query-replace on a
  number of strings:

    (let ((strings '("foo" "bar")))
      (while strings
	(tags-query-replace (car strings) "newstring")
	(setq strings (cdr strings)))

  However, this loop ends when tags-query-replace returns the first time
  so "bar" is never replaced.

  What magic do I need to wrap tags-query-replace in to continue with
  the rest of the strings?

--
Bill Wohler <wohler@newt.com>  http://www.newt.com/wohler/  GnuPG ID:610BD9AD
Maintainer of comp.mail.mh FAQ and MH-E. Vote Libertarian!
If you're passed on the right, you're in the wrong lane.