diff options
| author | Richard M. Stallman | 2000-01-10 08:41:22 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 2000-01-10 08:41:22 +0000 |
| commit | 4357341d9ec66eb7258b2c749b84ef35faaab39f (patch) | |
| tree | c99b1d6e2b349950e36ce612e5b7cba803436a79 | |
| parent | 6d0c28f48b77b20036e353b87880f4fa8af422b3 (diff) | |
| download | emacs-4357341d9ec66eb7258b2c749b84ef35faaab39f.tar.gz emacs-4357341d9ec66eb7258b2c749b84ef35faaab39f.zip | |
(ange-ftp-file-name-nondirectory):
Don't ever include the host name or user name in the value.
| -rw-r--r-- | lisp/ange-ftp.el | 2 |
1 files changed, 1 insertions, 1 deletions
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.") | |||
| 3077 | (if (save-match-data | 3077 | (if (save-match-data |
| 3078 | (string-match "^~[^/]*$" filename)) | 3078 | (string-match "^~[^/]*$" filename)) |
| 3079 | "" | 3079 | "" |
| 3080 | (ange-ftp-real-file-name-nondirectory name))) | 3080 | (ange-ftp-real-file-name-nondirectory filename))) |
| 3081 | (ange-ftp-real-file-name-nondirectory name)))) | 3081 | (ange-ftp-real-file-name-nondirectory name)))) |
| 3082 | 3082 | ||
| 3083 | (defun ange-ftp-directory-file-name (dir) | 3083 | (defun ange-ftp-directory-file-name (dir) |