mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-27 19:31:38 +00:00
Code Issues Releases Activity

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

Browse Source 
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
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lisp/ange-ftp.el
View File

@ -3077,7 +3077,7 @@ system TYPE.")
(if (save-match-data (if (save-match-data
(string-match "^~[^/]*$" filename)) (string-match "^~[^/]*$" filename))
"" ""
(ange-ftp-real-file-name-nondirectory name))) (ange-ftp-real-file-name-nondirectory filename)))
(ange-ftp-real-file-name-nondirectory name)))) (ange-ftp-real-file-name-nondirectory name))))
(defun ange-ftp-directory-file-name (dir) (defun ange-ftp-directory-file-name (dir)