diff options
author | Geoff Voelker <[email protected]> | 1998-12-09 21:20:26 +0000 |
---|---|---|
committer | Geoff Voelker <[email protected]> | 1998-12-09 21:20:26 +0000 |
commit | 39408f318e025897e8c9f5ff6f636e8ee509bdfc (patch) | |
tree | 47ab92d7c2115be20d791a3fed14a6d5f17b8326 /lisp/ange-ftp.el | |
parent | 685a6f2e86094750e1bb440d5cf4d4c315f5a4dd (diff) |
(ange-ftp-expand-file-name) [windows-nt]: Handle
filenames using backslashes.
Diffstat (limited to 'lisp/ange-ftp.el')
-rw-r--r-- | lisp/ange-ftp.el | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/lisp/ange-ftp.el b/lisp/ange-ftp.el index 5c3eb4efd7..6edea2c3aa 100644 --- a/lisp/ange-ftp.el +++ b/lisp/ange-ftp.el @@ -3048,6 +3048,9 @@ logged in as user USER and cd'd to directory DIR." ((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)) |