mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-23 07:19:15 +00:00
Code Issues Releases Activity

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

Browse Source 
nil.
This commit is contained in:
Karl Heuer 1994-02-25 03:24:15 +00:00
parent f450965c2e
commit 6a8f71e7eb
1 changed files with 1 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
lisp/files.el
View File

@ -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.