From baf9b8c4a3942de7b1b11272c5863d1d3de512c6 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Sun, 17 Sep 1995 14:12:02 +0000 Subject: [PATCH] (find-alternate-file): Kill any preexisting ` **lose**' buf. --- lisp/files.el | 2 ++ 1 file changed, 2 insertions(+) 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) -- 2.39.2