From mboxrd@z Thu Jan  1 00:00:00 1970
Path: main.gmane.org!not-for-mail
From: "Stefan Monnier" <monnier+gnu/emacs@rum.cs.yale.edu>
Newsgroups: gmane.emacs.devel
Subject: Re: find-alternate-file and kill-buffer-query-functions
Date: Tue, 27 Aug 2002 14:02:44 -0400
Sender: emacs-devel-admin@gnu.org
Message-ID: <200208271802.g7RI2ii30824@rum.cs.yale.edu>
References: <20020826210119.446702.FMU965@piglet.prv.splode.com>
NNTP-Posting-Host: localhost.gmane.org
Mime-Version: 1.0
Content-Type: text/plain; charset=us-ascii
X-Trace: main.gmane.org 1030471429 13082 127.0.0.1 (27 Aug 2002 18:03:49 GMT)
X-Complaints-To: usenet@main.gmane.org
NNTP-Posting-Date: Tue, 27 Aug 2002 18:03:49 +0000 (UTC)
Cc: rms@gnu.org, emacs-devel@gnu.org
Return-path: <emacs-devel-admin@gnu.org>
Original-Received: from quimby.gnus.org ([80.91.224.244])
	by main.gmane.org with esmtp (Exim 3.35 #1 (Debian))
	id 17jkgr-0003OU-00
	for <emacs-devel@main.gmane.org>; Tue, 27 Aug 2002 20:03:45 +0200
Original-Received: from monty-python.gnu.org ([199.232.76.173])
	by quimby.gnus.org with esmtp (Exim 3.12 #1 (Debian))
	id 17jlCH-0002AF-00
	for <emacs-devel@quimby.gnus.org>; Tue, 27 Aug 2002 20:36:13 +0200
Original-Received: from localhost ([127.0.0.1] helo=monty-python.gnu.org)
	by monty-python.gnu.org with esmtp (Exim 4.10)
	id 17jki4-0001z8-00; Tue, 27 Aug 2002 14:05:00 -0400
Original-Received: from list by monty-python.gnu.org with tmda-scanned (Exim 4.10)
	id 17jkfy-0001oF-00
	for emacs-devel@gnu.org; Tue, 27 Aug 2002 14:02:50 -0400
Original-Received: from mail by monty-python.gnu.org with spam-scanned (Exim 4.10)
	id 17jkfw-0001ns-00
	for emacs-devel@gnu.org; Tue, 27 Aug 2002 14:02:49 -0400
Original-Received: from rum.cs.yale.edu ([128.36.229.169])
	by monty-python.gnu.org with esmtp (Exim 4.10)
	id 17jkfu-0001nP-00; Tue, 27 Aug 2002 14:02:46 -0400
Original-Received: (from monnier@localhost)
	by rum.cs.yale.edu (8.11.6/8.11.6) id g7RI2ii30824;
	Tue, 27 Aug 2002 14:02:44 -0400
X-Mailer: exmh version 2.4 06/23/2000 with nmh-1.0.4
Original-To: Noah Friedman <friedman@splode.com>
Errors-To: emacs-devel-admin@gnu.org
X-BeenThere: emacs-devel@gnu.org
X-Mailman-Version: 2.0.11
Precedence: bulk
List-Help: <mailto:emacs-devel-request@gnu.org?subject=help>
List-Post: <mailto:emacs-devel@gnu.org>
List-Subscribe: <http://mail.gnu.org/mailman/listinfo/emacs-devel>,
	<mailto:emacs-devel-request@gnu.org?subject=subscribe>
List-Id: Emacs development discussions. <emacs-devel.gnu.org>
List-Unsubscribe: <http://mail.gnu.org/mailman/listinfo/emacs-devel>,
	<mailto:emacs-devel-request@gnu.org?subject=unsubscribe>
List-Archive: <http://mail.gnu.org/pipermail/emacs-devel/>
Xref: main.gmane.org gmane.emacs.devel:6990
X-Report-Spam: http://spam.gmane.org/gmane.emacs.devel:6990

>     (unless (eq (current-buffer) obuf)
>       ;; We already asked; don't ask again.
>       (save-excursion
>         ;; switch to buffer before shadowing query functions, in case
>         ;; they are buffer-local
>         (set-buffer obuf)
>         (let ((kill-buffer-query-functions nil))
>           (kill-buffer obuf))))

Sounds right, except that I'd recommend `with-current-buffer'
in place of `save-excursion' + `set-buffer'.


	Stefan