Mercurial > emacs
changeset 42898:79af049b102e
(ange-ftp-canonize-filename): Avoid duplicate slash if DIR is just slash.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Tue, 22 Jan 2002 07:34:07 +0000 |
| parents | 6ebecfe55a3c |
| children | 208cfafce1ab |
| files | lisp/net/ange-ftp.el |
| diffstat | 1 files changed, 2 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/net/ange-ftp.el Tue Jan 22 07:18:14 2002 +0000 +++ b/lisp/net/ange-ftp.el Tue Jan 22 07:34:07 2002 +0000 @@ -3170,7 +3170,8 @@ (rest (substring name (match-end 0))) (dir (ange-ftp-expand-dir host user tilda))) (if dir - (setq name (concat dir rest)) + (setq name (if (string-equal dir "/") + rest (concat dir rest))) (error "User \"%s\" is not known" (substring tilda 1)))))