From: Luc Teirlinck <teirllm@auburn.edu>
Date: Sun, 10 Jul 2005 14:42:02 +0000 (+0000)
Subject: (set-visited-file-name): Avoid calling file-name-nondirectory with a
X-Git-Tag: emacs-pretest-22.0.90~8259
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=e6d0b67a70ef690fe196e1ff8ea8b70e51122404;p=emacs.git

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

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))))