From 97a1a46f05135a017ef3b54637493dbabc93d1f6 Mon Sep 17 00:00:00 2001 From: Andrew Innes Date: Thu, 1 Jul 1999 19:42:42 +0000 Subject: [PATCH] (untranslated-canonical-name): Avoid expanding ange-ftp file names, which might force ange-ftp to prompt for a password. --- lisp/dos-w32.el | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/lisp/dos-w32.el b/lisp/dos-w32.el index 612191c75aa..8e3e7862520 100644 --- a/lisp/dos-w32.el +++ b/lisp/dos-w32.el @@ -208,7 +208,10 @@ dealing with untranslated filesystems." filename nil)) ;; Use expand-file-name to canonicalize directory separators, except ;; with bare drive letters (which would have the cwd appended). - (if (string-match "^.:$" name) + ;; Avoid expanding names that could trigger ange-ftp to prompt + ;; for passwords, though. + (if (or (string-match "^.:$" name) + (string-match "^/[^/:]+:" name)) name (expand-file-name name))) filename)) -- 2.39.2