Mercurial > emacs

diff lisp/files.el @ 13037:3946c18462c8

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(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 b7928eb6cb99
children 9f60089ce2bb
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)