changeset 13037:3946c18462c8

(find-alternate-file): Kill any preexisting ` **lose**' buf.
author Richard M. Stallman <rms@gnu.org>
date Sun, 17 Sep 1995 14:12:02 +0000
parents cd0e7903d0a9
children d07703594662
files lisp/files.el
diffstat 1 files changed, 2 insertions(+), 0 deletions(-) [+]
line wrap: on
line diff
--- 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)