procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(ange-ftp-canonicalize-filename): Do not use a UNC

Browse source 
path as a default directory when canonicalizing names.
This commit is contained in:
Geoff Voelker 1998-10-30 03:56:25 +00:00
parent dbda5089c0
commit 64aefd1ae3
1 changed files with 9 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

14
lisp/ange-ftp.el
View file

@ -3017,11 +3017,15 @@ logged in as user USER and cd'd to directory DIR."
;; If name starts with //, preserve that, for apollo system.
(if (not (string-match "^//" name))
(progn
(setq name (ange-ftp-real-expand-file-name name))
;; Strip off drive specifier added on windows-nt
(if (and (eq system-type 'windows-nt)
(string-match "^[a-zA-Z]:" name))
(setq name (substring name 2)))
(if (not (eq system-type 'windows-nt))
(setq name (ange-ftp-real-expand-file-name name))
;; Windows UNC default dirs do not make sense for ftp.
(if (string-match "^//" default-directory)
(setq name (ange-ftp-real-expand-file-name name "c:/"))
(setq name (ange-ftp-real-expand-file-name name)))
;; Strip off possible drive specifier.
(if (string-match "^[a-zA-Z]:" name)
(setq name (substring name 2))))
(if (string-match "^//" name)
(setq name (substring name 1)))))