diff options
| author | Geoff Voelker | 1998-12-09 21:20:26 +0000 |
|---|---|---|
| committer | Geoff Voelker | 1998-12-09 21:20:26 +0000 |
| commit | 39408f318e025897e8c9f5ff6f636e8ee509bdfc (patch) | |
| tree | 47ab92d7c2115be20d791a3fed14a6d5f17b8326 | |
| parent | 685a6f2e86094750e1bb440d5cf4d4c315f5a4dd (diff) | |
| download | emacs-39408f318e025897e8c9f5ff6f636e8ee509bdfc.tar.gz emacs-39408f318e025897e8c9f5ff6f636e8ee509bdfc.zip | |
(ange-ftp-expand-file-name) [windows-nt]: Handle
filenames using backslashes.
| -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 5c3eb4efd7f..6edea2c3aa5 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." | |||
| 3048 | ((eq (string-to-char name) ?/) | 3048 | ((eq (string-to-char name) ?/) |
| 3049 | (ange-ftp-canonize-filename name)) | 3049 | (ange-ftp-canonize-filename name)) |
| 3050 | ((and (eq system-type 'windows-nt) | 3050 | ((and (eq system-type 'windows-nt) |
| 3051 | (eq (string-to-char name) ?\\)) | ||
| 3052 | (ange-ftp-canonize-filename name)) | ||
| 3053 | ((and (eq system-type 'windows-nt) | ||
| 3051 | (or (string-match "^[a-zA-Z]:" name) | 3054 | (or (string-match "^[a-zA-Z]:" name) |
| 3052 | (string-match "^[a-zA-Z]:" default))) | 3055 | (string-match "^[a-zA-Z]:" default))) |
| 3053 | (ange-ftp-real-expand-file-name name default)) | 3056 | (ange-ftp-real-expand-file-name name default)) |