Commit baf9b8c4 authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

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

parent 0745dce9
...@@ -535,6 +535,8 @@ If the current buffer now contains an empty file that you just visited ...@@ -535,6 +535,8 @@ If the current buffer now contains an empty file that you just visited
(onum buffer-file-number) (onum buffer-file-number)
(otrue buffer-file-truename) (otrue buffer-file-truename)
(oname (buffer-name))) (oname (buffer-name)))
(if (get-buffer " **lose**")
(kill-buffer " **lose**"))
(rename-buffer " **lose**") (rename-buffer " **lose**")
(setq buffer-file-name nil) (setq buffer-file-name nil)
(setq buffer-file-number nil) (setq buffer-file-number nil)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment