From: Richard M. Stallman <rms@gnu.org>
Date: Mon, 10 Jan 2000 08:41:22 +0000 (+0000)
Subject: (ange-ftp-file-name-nondirectory):
X-Git-Tag: emacs-pretest-21.0.90~5408
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=4357341d9ec66eb7258b2c749b84ef35faaab39f;p=emacs.git

(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 68f8f954253..63f5baff875 100644
--- 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)