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/obsolete/rcompile.el | |
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/obsolete/rcompile.el')
-rw-r--r-- | lisp/obsolete/rcompile.el | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/lisp/obsolete/rcompile.el b/lisp/obsolete/rcompile.el index ff7d1dcdcea..c8fb9f20985 100644 --- a/lisp/obsolete/rcompile.el +++ b/lisp/obsolete/rcompile.el @@ -109,6 +109,9 @@ nil means run no commands." ;;;; entry point ;; We use the Tramp internal function `tramp-make-tramp-file-name'. +;; It has changed its signature in Emacs 27.1, supporting still the +;; old calling convention. Let's assume rcompile.el has been removed +;; once Tramp does not support it any longer. ;; Better would be, if there are functions to provide user, host and ;; localname of a remote filename, independent of Tramp's implementation. ;; The function calls are wrapped by `funcall' in order to pacify the byte @@ -167,7 +170,8 @@ See \\[compile]." (with-current-buffer compilation-last-buffer (when (fboundp 'tramp-make-tramp-file-name) (set (make-local-variable 'comint-file-name-prefix) - (tramp-make-tramp-file-name + (funcall + #'tramp-make-tramp-file-name nil ;; method. remote-compile-user remote-compile-host |