From 918aaa359375d0108b2e27d5fa5bf71de8a8c53d Mon Sep 17 00:00:00 2001 From: Akib Azmain Turja Date: Sun, 4 Feb 2024 10:45:45 +0600 Subject: [PATCH] ; 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 2dd436d..3ffbeda 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)