(set-visited-file-name): Avoid calling file-name-nondirectory with a

nil argument.

diff --git a/lisp/files.el b/lisp/files.el
index 029800781ba9dae6f9fd24e28e8f8e20f5420dd4..f41a9b2952221f723f049c0c6227b4e46997a7f9 100644 (file)
--- 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))))