diff options
| author | Luc Teirlinck | 2005-07-10 14:42:02 +0000 |
|---|---|---|
| committer | Luc Teirlinck | 2005-07-10 14:42:02 +0000 |
| commit | e6d0b67a70ef690fe196e1ff8ea8b70e51122404 (patch) | |
| tree | 7a4da955dd0f9abf62f180b11d49b8ef8f57ba2e | |
| parent | 4a65d2b34e521644e9b038c67a992bac8b4ca22d (diff) | |
| download | emacs-e6d0b67a70ef690fe196e1ff8ea8b70e51122404.tar.gz emacs-e6d0b67a70ef690fe196e1ff8ea8b70e51122404.zip | |
(set-visited-file-name): Avoid calling file-name-nondirectory with a
nil argument.
| -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)))) |