Commit 6a8f71e7 authored by Karl Heuer's avatar Karl Heuer
Browse files

(set-visited-file-name): Unlock the file if setting the visited file name to

nil.
parent f450965c
......@@ -1151,9 +1151,8 @@ if you wish to pass an empty string as the argument."
nil
(expand-file-name filename))))
(or (equal filename buffer-file-name)
(null filename)
(progn
(lock-buffer filename)
(and filename (lock-buffer filename))
(unlock-buffer)))
(setq buffer-file-name filename)
(if filename ; make buffer name reflect filename.
......
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