From: Geoff Voelker <voelker@cs.washington.edu>
Date: Wed, 9 Dec 1998 21:20:26 +0000 (+0000)
Subject: (ange-ftp-expand-file-name) [windows-nt]: Handle
X-Git-Tag: emacs-20.4~1109
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=39408f318e025897e8c9f5ff6f636e8ee509bdfc;p=emacs.git

(ange-ftp-expand-file-name) [windows-nt]: Handle
filenames using backslashes.
---

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)))