Mercurial > emacs
comparison lisp/ange-ftp.el @ 27257:6b68e8616c20
(ange-ftp-file-name-nondirectory):
Don't ever include the host name or user name in the value.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Mon, 10 Jan 2000 08:41:22 +0000 |
| parents | 41fc37a93f9e |
| children | d2027e4f6c93 |
comparison
equal
deleted
inserted
replaced
| 27256:fde8f0332937 | 27257:6b68e8616c20 |
|---|---|
| 3075 (if parsed | 3075 (if parsed |
| 3076 (let ((filename (nth 2 parsed))) | 3076 (let ((filename (nth 2 parsed))) |
| 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) |
| 3084 "Documented as original." | 3084 "Documented as original." |
| 3085 (let ((parsed (ange-ftp-ftp-name dir))) | 3085 (let ((parsed (ange-ftp-ftp-name dir))) |