# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 947493682 0
# Node ID 6b68e8616c20896abc4876761e5829ab37c68c02
# Parent  fde8f033293763c0b5d90c02d154a64cc27d8813
(ange-ftp-file-name-nondirectory):
Don't ever include the host name or user name in the value.

diff -r fde8f0332937 -r 6b68e8616c20 lisp/ange-ftp.el
--- a/lisp/ange-ftp.el	Mon Jan 10 08:40:49 2000 +0000
+++ b/lisp/ange-ftp.el	Mon Jan 10 08:41:22 2000 +0000
@@ -3077,7 +3077,7 @@
 	  (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)