mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-01 11:14:55 +00:00
Code Issues Releases Activity

Avoid interpreting file:/foo:/bar URLs via tramp.

Browse Source
This commit is contained in:
Lars Magne Ingebrigtsen 2010-11-16 14:46:12 +01:00
parent d2762c8641
commit 023ec128fd
2 changed files with 18 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lisp/url/ChangeLog
View File

@ -1,3 +1,8 @@
2010-11-16 Lars Magne Ingebrigtsen <larsi@gnus.org>
* url-file.el (url-file-build-filename): Avoid interpreting
file:/foo:/bar URLs via tramp.
2010-10-14 Lars Magne Ingebrigtsen <larsi@gnus.org>
* url-gw.el (url-open-stream): Use open-gnutls-stream if it exists.

19
lisp/url/url-file.el
View File

@ -103,12 +103,19 @@ to them."
(format "%s#%d" host port))
host))
(file (url-unhex-string (url-filename url)))
(filename (if (or user (not (url-file-host-is-local-p host)))
(concat "/" (or user "anonymous") "@" site ":" file)
(if (and (memq system-type '(ms-dos windows-nt))
(string-match "^/[a-zA-Z]:/" file))
(substring file 1)
file)))
(filename (cond
;; ftp: URL.
((or user (not (url-file-host-is-local-p host)))
(concat "/" (or user "anonymous") "@" site ":" file))
;; file: URL on Windows.
((and (string-match "\\`/[a-zA-Z]:/" file)
(memq system-type '(ms-dos windows-nt)))
(substring file 1))
;; file: URL with a file:/bar:/foo-like spec.
((string-match "\\`/[^/]+:/" file)
(concat "/:" file))
(t
file)))
pos-index)
(and user pass