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

(find-alternate-file): Don't clear buffer-file-truename

and friends until after calling unlock-buffer.
parent 73d8f1de
......@@ -586,12 +586,12 @@ If the current buffer now contains an empty file that you just visited
(if (get-buffer " **lose**")
(kill-buffer " **lose**"))
(rename-buffer " **lose**")
(setq buffer-file-name nil)
(setq buffer-file-number nil)
(setq buffer-file-truename nil)
(unwind-protect
(progn
(unlock-buffer)
(setq buffer-file-name nil)
(setq buffer-file-number nil)
(setq buffer-file-truename nil)
(find-file filename))
(cond ((eq obuf (current-buffer))
(setq buffer-file-name ofile)
......
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