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

diff --git a/lisp/net/ange-ftp.el b/lisp/net/ange-ftp.el
index a82a927c949319755250a66aafe31be29dd440cd..f1aaa53e63794c69a1dfb05537b108f497ef57cc 100644 (file)
--- a/lisp/net/ange-ftp.el
+++ b/lisp/net/ange-ftp.el
@@ -3017,7 +3017,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)))))