(ange-ftp-file-name-nondirectory):

Don't ever include the host name or user name in the value.

diff --git a/lisp/ange-ftp.el b/lisp/ange-ftp.el
index 68f8f954253f69b3fff0075b7970d41efe9d0310..63f5baff87521d89b9d14bd354c7c312fbe288cb 100644 (file)
--- a/lisp/ange-ftp.el
+++ b/lisp/ange-ftp.el
@@ -3077,7 +3077,7 @@ system TYPE.")
          (if (save-match-data
                (string-match "^~[^/]*$" filename))
              ""
-           (ange-ftp-real-file-name-nondirectory name)))
+           (ange-ftp-real-file-name-nondirectory filename)))
       (ange-ftp-real-file-name-nondirectory name))))
 
 (defun ange-ftp-directory-file-name (dir)