From: Richard M. Stallman <rms@gnu.org>
Date: Tue, 22 Jan 2002 07:34:07 +0000 (+0000)
Subject: (ange-ftp-canonize-filename): Avoid duplicate slash if DIR is just slash.
X-Git-Tag: ttn-vms-21-2-B4~17024
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=c392a090aaf152b6d2f99c4b52dc54c0cd09e3ab;p=emacs.git

(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 ef4b65d5556..1cb56f9ad7a 100644
--- a/lisp/net/ange-ftp.el
+++ b/lisp/net/ange-ftp.el
@@ -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)))))