Github/emacs
2
0
Fork 1
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-16 17:24:23 +00:00
Code Issues Projects Releases Packages Wiki Activity

(ange-ftp-expand-file-name) [windows-nt]: Handle

Browse source 
filenames using backslashes.
This commit is contained in:
Geoff Voelker 1998-12-09 21:20:26 +00:00
parent 685a6f2e86
commit 39408f318e
1 changed files with 3 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
lisp/ange-ftp.el
View file

@ -3047,6 +3047,9 @@ logged in as user USER and cd'd to directory DIR."
(ange-ftp-real-expand-file-name name))
((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)))