diff options
author | Luc Teirlinck <[email protected]> | 2005-07-10 14:42:02 +0000 |
---|---|---|
committer | Luc Teirlinck <[email protected]> | 2005-07-10 14:42:02 +0000 |
commit | e6d0b67a70ef690fe196e1ff8ea8b70e51122404 (patch) | |
tree | 7a4da955dd0f9abf62f180b11d49b8ef8f57ba2e /lisp/files.el | |
parent | 4a65d2b34e521644e9b038c67a992bac8b4ca22d (diff) |
(set-visited-file-name): Avoid calling file-name-nondirectory with a
nil argument.
Diffstat (limited to 'lisp/files.el')
-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 029800781b..f41a9b2952 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." (if find-file-visit-truename (setq filename truename)))) (if filename - (let ((new-name (file-name-nondirectory buffer-file-name))) + (let ((new-name (file-name-nondirectory filename))) (if (string= new-name "") (error "Empty file name")))) (let ((buffer (and filename (find-buffer-visiting filename)))) |