Luj/eat-emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

; eat.el (eat-default-shell,eat-tramp-shells): Fix

Browse source
This commit is contained in:
Akib Azmain Turja 2024-02-04 10:45:45 +06:00
parent 77bc6d7acc
commit 918aaa3593
No known key found for this signature in database
GPG key ID: 5535FCF54D88616B
1 changed files with 4 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
eat.el
View file

@ -131,11 +131,11 @@
:type 'string
:group 'eat-ui)
(defcustom eat-tramp-shells '(("docker" "/bin/sh"))
(defcustom eat-tramp-shells '(("docker" . "/bin/sh"))
"Alist specifying the shells to run in Tramp.
Each element of form (TRAMP-METHOD SHELL), where SHELL corresponds to
the default shell for remote directories using TRAMP-METHOD."
Each element of form (TRAMP-METHOD . SHELL), where SHELL corresponds
to the default shell for remote directories using TRAMP-METHOD."
:type '(alist :key-type string :value-type string)
:group 'eat-ui)
@ -7069,7 +7069,7 @@ PROGRAM."
"Return a shell to run."
(or (and (file-remote-p default-directory)
(with-parsed-tramp-file-name default-directory nil
(alist-get method eat-tramp-shells)))
(alist-get method eat-tramp-shells nil nil 'equal)))
eat-shell))
(defun eat--1 (program arg display-buffer-fn)