mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

Tramp code cleanup

Browse source 
* lisp/net/tramp-sh.el (tramp-find-shell, tramp-find-inline-compress)
(tramp-get-remote-path):
* lisp/net/tramp-smb.el (tramp-smb-handle-process-file):
Use `tramp-warning'.

* test/lisp/net/tramp-tests.el (tramp--test-container-p):
Add "kubernetes", "run0" and "nspawn".
(tramp--test-toolbox-p): New defun.
(tramp-test45-asynchronous-requests): Use it.
(tramp--test-check-files): Adapt regexp.
This commit is contained in:
Michael Albinus 2024-05-20 16:22:17 +02:00
parent 9db24de481
commit 3c238f7c50
4 changed files with 24 additions and 14 deletions
Download patch file Download diff file Expand all files Collapse all files

9
lisp/net/tramp.el
View file

@ -4862,10 +4862,11 @@ should be set conmnection-local.")
(when (and (not (tramp-compat-connection-local-p
tramp-direct-async-process))
(tramp-connection-property-p v "direct-async-process"))
(let ((msg (concat "Connection property \"direct-async-process\" is deprecated, "
"use connection-local variable `tramp-direct-async-process'\n"
"See (info \"(tramp) Improving performance of "
"asynchronous remote processes\")")))
(let ((msg (concat
"Connection property \"direct-async-process\" is deprecated, "
"use connection-local variable `tramp-direct-async-process'\n"
"See (info \"(tramp) Improving performance of "
"asynchronous remote processes\")")))
(if (tramp-get-connection-property
tramp-null-hop "direct-async-process-warned")
(tramp-message v 2 msg)