# HG changeset patch
# User Geoff Voelker <voelker@cs.washington.edu>
# Date 913238426 0
# Node ID 4a967683f653695fa73df538f352ec79e00e3973
# Parent  2dcf9631cad2898c65848b1f3e493934326a569b
(ange-ftp-expand-file-name) [windows-nt]: Handle
filenames using backslashes.

diff -r 2dcf9631cad2 -r 4a967683f653 lisp/ange-ftp.el
--- a/lisp/ange-ftp.el	Wed Dec 09 16:53:34 1998 +0000
+++ b/lisp/ange-ftp.el	Wed Dec 09 21:20:26 1998 +0000
@@ -3048,6 +3048,9 @@
 	  ((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)))
 	   (ange-ftp-real-expand-file-name name default))