Mercurial > emacs
diff lisp/files.el @ 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 | 331eb59e77d4 |
| children | 15310c1e629c fbb2bea03df9 |
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))))