diff options
| -rw-r--r-- | lisp/files.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/files.el b/lisp/files.el index 029800781ba..f41a9b29522 100644 --- a/lisp/files.el +++ b/lisp/files.el | |||
| @@ -2545,7 +2545,7 @@ the old visited file has been renamed to the new name FILENAME." | |||
| 2545 | (if find-file-visit-truename | 2545 | (if find-file-visit-truename |
| 2546 | (setq filename truename)))) | 2546 | (setq filename truename)))) |
| 2547 | (if filename | 2547 | (if filename |
| 2548 | (let ((new-name (file-name-nondirectory buffer-file-name))) | 2548 | (let ((new-name (file-name-nondirectory filename))) |
| 2549 | (if (string= new-name "") | 2549 | (if (string= new-name "") |
| 2550 | (error "Empty file name")))) | 2550 | (error "Empty file name")))) |
| 2551 | (let ((buffer (and filename (find-buffer-visiting filename)))) | 2551 | (let ((buffer (and filename (find-buffer-visiting filename)))) |