From: Richard M. Stallman <rms@gnu.org>
Date: Sun, 17 Sep 1995 14:12:02 +0000 (+0000)
Subject: (find-alternate-file): Kill any preexisting ` **lose**' buf.
X-Git-Tag: emacs-19.34~2823
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=baf9b8c4a3942de7b1b11272c5863d1d3de512c6;p=emacs.git

(find-alternate-file): Kill any preexisting ` **lose**' buf.
---

diff --git a/lisp/files.el b/lisp/files.el
index f1a4509a32d..fc38769f703 100644
--- a/lisp/files.el
+++ b/lisp/files.el
@@ -535,6 +535,8 @@ If the current buffer now contains an empty file that you just visited
 	(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)