emacs-elpa-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[nongnu] elpa/eat 918aaa3593: ; eat.el (eat-default-shell,eat-tramp-shel


From: ELPA Syncer
Subject: [nongnu] elpa/eat 918aaa3593: ; eat.el (eat-default-shell,eat-tramp-shells): Fix
Date: Sun, 4 Feb 2024 00:59:23 -0500 (EST)

branch: elpa/eat
commit 918aaa359375d0108b2e27d5fa5bf71de8a8c53d
Author: Akib Azmain Turja <akib@disroot.org>
Commit: Akib Azmain Turja <akib@disroot.org>

    ; eat.el (eat-default-shell,eat-tramp-shells): Fix
---
 eat.el | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/eat.el b/eat.el
index 2dd436d67e..3ffbedab39 100644
--- a/eat.el
+++ b/eat.el
@@ -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)



reply via email to

[Prev in Thread] Current Thread [Next in Thread]