diff options
| author | Michael Albinus <michael.albinus@gmx.de> | 2021-11-01 12:29:22 +0100 |
|---|---|---|
| committer | Michael Albinus <michael.albinus@gmx.de> | 2021-11-01 12:29:22 +0100 |
| commit | ba4daf22144e9a68b1797d6a3b621f2b6b16a293 (patch) | |
| tree | 2e80b50c8c930d6cb57faf98ee70b550191d88ce /lisp/url | |
| parent | a34466731b11959f799e4f7415a81dbeaa768d81 (diff) | |
| download | emacs-ba4daf22144e9a68b1797d6a3b621f2b6b16a293.tar.gz | |
Adapt arguments of `tramp-make-tramp-file-name'
* lisp/net/tramp-gvfs.el (tramp-gvfs-handler-mounted-unmounted):
* lisp/url/url-tramp.el (url-tramp-convert-url-to-tramp):
Use `make-tramp-file-name'.
* lisp/obsolete/rcompile.el (remote-compile): Pacify byte-compiler.
Diffstat (limited to 'lisp/url')
| -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. |