diff options
| author | Karl Heuer <kwzh@gnu.org> | 1994-02-25 03:24:15 +0000 |
|---|---|---|
| committer | Karl Heuer <kwzh@gnu.org> | 1994-02-25 03:24:15 +0000 |
| commit | 6a8f71e7eb96d885421b16c96df125ea4c11a4aa (patch) | |
| tree | 83629f3e4cad3fd564d51365732842e18afe5dfe /lisp | |
| parent | f450965c2e0778dc1dd0c4a672176d688d0bdd6f (diff) | |
| download | emacs-6a8f71e7eb96d885421b16c96df125ea4c11a4aa.tar.gz | |
(set-visited-file-name): Unlock the file if setting the visited file name to
nil.
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/files.el | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/lisp/files.el b/lisp/files.el index aac5ebb1a64..1ca1369d250 100644 --- a/lisp/files.el +++ b/lisp/files.el @@ -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. |