# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 811347122 0
# Node ID 3946c18462c8434a861b971f42e058796d4ab19d
# Parent  cd0e7903d0a9a24a6cdfec29748762212dfc8169
(find-alternate-file): Kill any preexisting ` **lose**' buf.

diff -r cd0e7903d0a9 -r 3946c18462c8 lisp/files.el
--- a/lisp/files.el	Fri Sep 15 16:45:41 1995 +0000
+++ b/lisp/files.el	Sun Sep 17 14:12:02 1995 +0000
@@ -535,6 +535,8 @@
 	(onum buffer-file-number)
 	(otrue buffer-file-truename)
 	(oname (buffer-name)))
+    (if (get-buffer " **lose**")
+	(kill-buffer " **lose**"))
     (rename-buffer " **lose**")
     (setq buffer-file-name nil)
     (setq buffer-file-number nil)