# HG changeset patch
# User Luc Teirlinck <teirllm@auburn.edu>
# Date 1121006522 0
# Node ID 25c498d4b785f614bb6788ffe0c74d1cf6955a21
# Parent  ab96dd2f2511acddf5f670fe899f15f26418436b
(set-visited-file-name): Avoid calling file-name-nondirectory with a
nil argument.

diff -r ab96dd2f2511 -r 25c498d4b785 lisp/files.el
--- 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))))