Using interactive functions in functions

[Bill Wohler]

  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.