(ange-ftp-canonize-filename): Avoid duplicate slash if DIR is just slash.

This commit is contained in:
Richard M. Stallman 2002-01-22 07:34:07 +00:00
parent 9f2e5ef39d
commit c392a090aa

View file

@ -3170,7 +3170,8 @@ logged in as user USER and cd'd to directory DIR."
(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)))))