From c392a090aaf152b6d2f99c4b52dc54c0cd09e3ab Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Tue, 22 Jan 2002 07:34:07 +0000 Subject: [PATCH] (ange-ftp-canonize-filename): Avoid duplicate slash if DIR is just slash. --- lisp/net/ange-ftp.el | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) 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))))) -- 2.39.5