mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-05-31 01:32:00 -07:00
Code Issues Projects Releases Wiki Activity

Adapt ert-remote-temporary-file-directory settings

Browse source 
* lisp/emacs-lisp/ert-x.el (tramp-default-remote-shell)
(tramp-encoding-shell): Declare.
(tramp-methods) <mock>: Add `tramp-tmpdir'.  Adapt
`tramp-login-program' and `tramp-remote-shell'.
This commit is contained in:
Michael Albinus 2026-05-22 18:37:36 +02:00
parent 3de7f0ce5e
commit e0fbecaf65
1 changed files with 8 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

13
lisp/emacs-lisp/ert-x.el
View file

@ -379,6 +379,8 @@ The same keyword arguments are supported as in
(ffap--gcc-is-clang-p))
(defvar tramp-default-host-alist)
(defvar tramp-default-remote-shell)
(defvar tramp-encoding-shell)
(defvar tramp-methods)
(defvar tramp-remote-path)
@ -394,16 +396,17 @@ The same keyword arguments are supported as in
(cond
((getenv "REMOTE_TEMPORARY_FILE_DIRECTORY"))
((eq system-type 'windows-nt) null-device)
;; Android's built-in shell is far too dysfunctional to support
;; Android's built-in shell is far too dysfunctional to support.
;; Tramp.
((eq system-type 'android) null-device)
(t (add-to-list
'tramp-methods
'("mock"
(tramp-login-program "sh")
`("mock"
(tramp-login-program ,tramp-encoding-shell)
(tramp-login-args (("-i")))
(tramp-direct-async ("-c"))
(tramp-remote-shell "/bin/sh")
(tramp-direct-async ("-c"))
(tramp-tmpdir ,temporary-file-directory)
(tramp-remote-shell ,tramp-default-remote-shell)
(tramp-remote-shell-args ("-c"))
(tramp-connection-timeout 10)))
(add-to-list