Mercurial > emacs
changeset 24913:76764b2157af
(untranslated-canonical-name): Avoid expanding
ange-ftp file names, which might force ange-ftp to prompt for a
password.
| author | Andrew Innes <andrewi@gnu.org> |
|---|---|
| date | Thu, 01 Jul 1999 19:42:42 +0000 |
| parents | 15cba2bd779a |
| children | 71f071c1bdf7 |
| files | lisp/dos-w32.el |
| diffstat | 1 files changed, 4 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/dos-w32.el Thu Jul 01 19:40:37 1999 +0000 +++ b/lisp/dos-w32.el Thu Jul 01 19:42:42 1999 +0000 @@ -208,7 +208,10 @@ 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))