1
0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-12 16:23:57 +00:00

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

Don't ever include the host name or user name in the value.
This commit is contained in:
Richard M. Stallman 2000-01-10 08:41:22 +00:00
parent 6d0c28f48b
commit 4357341d9e

View File

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