Mercurial > emacs
changeset 64198:25c498d4b785
(set-visited-file-name): Avoid calling file-name-nondirectory with a
nil argument.
| author | Luc Teirlinck <teirllm@auburn.edu> |
|---|---|
| date | Sun, 10 Jul 2005 14:42:02 +0000 |
| parents | ab96dd2f2511 |
| children | 9e93a9a7409a |
| files | lisp/files.el |
| diffstat | 1 files changed, 1 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/files.el Sat Jul 09 20:49:10 2005 +0000 +++ b/lisp/files.el Sun Jul 10 14:42:02 2005 +0000 @@ -2545,7 +2545,7 @@ (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))))