Mercurial > emacs
diff lisp/ange-ftp.el @ 23840:4a967683f653
(ange-ftp-expand-file-name) [windows-nt]: Handle
filenames using backslashes.
author | Geoff Voelker <voelker@cs.washington.edu> |
---|---|
date | Wed, 09 Dec 1998 21:20:26 +0000 |
parents | e782dce34a19 |
children | 6486c94c16ae |
line wrap: on
line diff
--- 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))