Mercurial > emacs
comparison 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 |
comparison
equal
deleted
inserted
replaced
| 23839:2dcf9631cad2 | 23840:4a967683f653 |
|---|---|
| 3044 (save-match-data | 3044 (save-match-data |
| 3045 (setq default (or default default-directory)) | 3045 (setq default (or default default-directory)) |
| 3046 (cond ((eq (string-to-char name) ?~) | 3046 (cond ((eq (string-to-char name) ?~) |
| 3047 (ange-ftp-real-expand-file-name name)) | 3047 (ange-ftp-real-expand-file-name name)) |
| 3048 ((eq (string-to-char name) ?/) | 3048 ((eq (string-to-char name) ?/) |
| 3049 (ange-ftp-canonize-filename name)) | |
| 3050 ((and (eq system-type 'windows-nt) | |
| 3051 (eq (string-to-char name) ?\\)) | |
| 3049 (ange-ftp-canonize-filename name)) | 3052 (ange-ftp-canonize-filename name)) |
| 3050 ((and (eq system-type 'windows-nt) | 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)) |