From 93339de71b3e2aaa4f0cbaf13ed8bcbc3fa448f3 Mon Sep 17 00:00:00 2001 From: Ihor Radchenko Date: Thu, 5 Jan 2023 11:26:40 +0300 Subject: [PATCH] org-babel-shell-initialize: Fix `org-babel-prompt-command' * lisp/ob-shell.el (org-babel-shell-initialize): Do not search shell name string by `eq' in `org-babel-shell-set-prompt-commands' alist. Use `assoc' that is comparing by `equal' instead. Reported-by: Matt Link: https://orgmode.org/list/87h6x8kluc.fsf@localhost --- lisp/ob-shell.el | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/lisp/ob-shell.el b/lisp/ob-shell.el index 4a60186cd..2c30a2605 100644 --- a/lisp/ob-shell.el +++ b/lisp/ob-shell.el @@ -79,7 +79,7 @@ is modified outside the Customize interface." ,(format "Execute a block of %s commands with Babel." name) (let ((shell-file-name ,name) (org-babel-prompt-command - (or (alist-get ,name org-babel-shell-set-prompt-commands) + (or (cdr (assoc ,name org-babel-shell-set-prompt-commands)) (alist-get t org-babel-shell-set-prompt-commands)))) (org-babel-execute:shell body params)))) (eval `(defalias ',(intern (concat "org-babel-variable-assignments:" name))