From 39408f318e025897e8c9f5ff6f636e8ee509bdfc Mon Sep 17 00:00:00 2001 From: Geoff Voelker Date: Wed, 9 Dec 1998 21:20:26 +0000 Subject: [PATCH] (ange-ftp-expand-file-name) [windows-nt]: Handle filenames using backslashes. --- lisp/ange-ftp.el | 3 +++ 1 file changed, 3 insertions(+) diff --git a/lisp/ange-ftp.el b/lisp/ange-ftp.el index 5c3eb4efd7f..6edea2c3aa5 100644 --- a/lisp/ange-ftp.el +++ b/lisp/ange-ftp.el @@ -3047,6 +3047,9 @@ logged in as user USER and cd'd to directory DIR." (ange-ftp-real-expand-file-name name)) ((eq (string-to-char name) ?/) (ange-ftp-canonize-filename name)) + ((and (eq system-type 'windows-nt) + (eq (string-to-char name) ?\\)) + (ange-ftp-canonize-filename name)) ((and (eq system-type 'windows-nt) (or (string-match "^[a-zA-Z]:" name) (string-match "^[a-zA-Z]:" default))) -- 2.39.2