# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 1011684847 0
# Node ID 79af049b102ecd8a8d8cef0bacfcb8bb2e9882b4
# Parent  6ebecfe55a3cb9a5d8279faffe53b984657c11af
(ange-ftp-canonize-filename): Avoid duplicate slash if DIR is just slash.

diff -r 6ebecfe55a3c -r 79af049b102e lisp/net/ange-ftp.el
--- 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)))))