From e6d0b67a70ef690fe196e1ff8ea8b70e51122404 Mon Sep 17 00:00:00 2001 From: Luc Teirlinck Date: Sun, 10 Jul 2005 14:42:02 +0000 Subject: [PATCH] (set-visited-file-name): Avoid calling file-name-nondirectory with a nil argument. --- lisp/files.el | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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." (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)))) -- 2.39.2