From mboxrd@z Thu Jan  1 00:00:00 1970
Path: main.gmane.org!not-for-mail
From: "Stefan Monnier <foo@acm.com>" <monnier+gnu.emacs.help/news/@flint.cs.yale.edu>
Newsgroups: gmane.emacs.help
Subject: Re: Using interactive functions in functions
Date: 06 Dec 2002 18:18:18 -0500
Organization: Yale University
Sender: help-gnu-emacs-admin@gnu.org
Message-ID: <5ly972ka85.fsf@rum.cs.yale.edu>
References: <mailman.1039209908.7595.help-gnu-emacs@gnu.org>
NNTP-Posting-Host: main.gmane.org
Mime-Version: 1.0
Content-Type: text/plain; charset=us-ascii
X-Trace: main.gmane.org 1039217511 18227 80.91.224.249 (6 Dec 2002 23:31:51 GMT)
X-Complaints-To: usenet@main.gmane.org
NNTP-Posting-Date: Fri, 6 Dec 2002 23:31:51 +0000 (UTC)
Return-path: <help-gnu-emacs-admin@gnu.org>
Original-Received: from monty-python.gnu.org ([199.232.76.173])
	by main.gmane.org with esmtp (Exim 3.35 #1 (Debian))
	id 18KRwi-0004YO-00
	for <gnu-help-gnu-emacs@m.gmane.org>; Sat, 07 Dec 2002 00:31:48 +0100
Original-Received: from localhost ([127.0.0.1] helo=monty-python.gnu.org)
	by monty-python.gnu.org with esmtp (Exim 4.10.13)
	id 18KRrC-0002Zb-00; Fri, 06 Dec 2002 18:26:06 -0500
Original-Path: shelby.stanford.edu!newsfeed.stanford.edu!canoe.uoregon.edu!logbridge.uoregon.edu!news.ycc.yale.edu!rum.cs.yale.edu!rum.cs.yale.edu
Original-Newsgroups: gnu.emacs.help
Original-Lines: 26
Original-NNTP-Posting-Host: rum.cs.yale.edu
User-Agent: Gnus/5.09 (Gnus v5.9.0) Emacs/21.3.50
X-Original-NNTP-Posting-Host: rum.cs.yale.edu
X-Original-Trace: 6 Dec 2002 18:18:19 -0500, rum.cs.yale.edu
Original-Xref: shelby.stanford.edu gnu.emacs.help:107820
Original-To: help-gnu-emacs@gnu.org
Errors-To: help-gnu-emacs-admin@gnu.org
X-BeenThere: help-gnu-emacs@gnu.org
X-Mailman-Version: 2.0.11
Precedence: bulk
List-Help: <mailto:help-gnu-emacs-request@gnu.org?subject=help>
List-Post: <mailto:help-gnu-emacs@gnu.org>
List-Subscribe: <http://mail.gnu.org/mailman/listinfo/help-gnu-emacs>,
	<mailto:help-gnu-emacs-request@gnu.org?subject=subscribe>
List-Id: Users list for the GNU Emacs text editor <help-gnu-emacs.gnu.org>
List-Unsubscribe: <http://mail.gnu.org/mailman/listinfo/help-gnu-emacs>,
	<mailto:help-gnu-emacs-request@gnu.org?subject=unsubscribe>
List-Archive: <http://mail.gnu.org/pipermail/help-gnu-emacs/>
Xref: main.gmane.org gmane.emacs.help:4368
X-Report-Spam: http://spam.gmane.org/gmane.emacs.help:4368

>>>>> "Bill" == Bill Wohler <wohler@newt.com> writes:
>   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?

I'm not sure exactly how tags-query-replace terminates, but if
it ends up short-circuiting the loop above, then it's either through
`signal' or `throw'.  A quick investigation shows it's probably not
`throw', so try something like

         (condition-case err
             (tags-query-replace ...)
           (error
            (if (examine err if you feel like it)
                (do something)
              (do something else))))


-- Stefan