diff options
Diffstat (limited to 'lisp/url/url-tramp.el')
| -rw-r--r-- | lisp/url/url-tramp.el | 10 |
1 files changed, 6 insertions, 4 deletions
diff --git a/lisp/url/url-tramp.el b/lisp/url/url-tramp.el index 5b9dd8a2682..5cf0d804d62 100644 --- a/lisp/url/url-tramp.el +++ b/lisp/url/url-tramp.el @@ -48,12 +48,14 @@ In case URL is not convertible, nil is returned." (when (url-password obj) (password-cache-add (tramp-make-tramp-file-name - (url-type obj) (url-user obj) nil - (url-host obj) port "") + (make-tramp-file-name + :method (url-type obj) :user (url-user obj) + :host (url-host obj))) (url-password obj))) (tramp-make-tramp-file-name - (url-type obj) (url-user obj) nil - (url-host obj) port (url-filename obj))))) + (make-tramp-file-name + :method (url-type obj) :user (url-user obj) + :host (url-host obj) :port port :localname (url-filename obj)))))) (defun url-tramp-convert-tramp-to-url (file) "Convert FILE, a Tramp file name, to a URL. |