# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 1030480620 0
# Node ID a2c9058db7316b241d1c44c5e2bdd63063e5478d
# Parent  bdd10e97fa76faab860d7bca4f70423f54647dfb
(find-alternate-file): Bind kill-buffer-query-functions locally, don't set it.

diff -r bdd10e97fa76 -r a2c9058db731 lisp/files.el
--- a/lisp/files.el	Tue Aug 27 18:54:46 2002 +0000
+++ b/lisp/files.el	Tue Aug 27 20:37:00 2002 +0000
@@ -964,9 +964,10 @@
 	(lock-buffer)
 	(rename-buffer oname)))
     (unless (eq (current-buffer) obuf)
-      ;; We already asked; don't ask again.
-      (setq kill-buffer-query-functions nil)
-      (kill-buffer obuf))))
+      (with-current-buffer obuf
+	;; We already asked; don't ask again.
+	(let ((kill-buffer-query-functions))
+	  (kill-buffer obuf))))))
 
 (defun create-file-buffer (filename)
   "Create a suitably named buffer for visiting FILENAME, and return it.