[elpa] externals-release/org 93339de71b: org-babel-shell-initialize: Fix `org-babel-prompt-command'

[ELPA Syncer]

branch: externals-release/org
commit 93339de71b3e2aaa4f0cbaf13ed8bcbc3fa448f3
Author: Ihor Radchenko <yantar92@posteo.net>
Commit: Ihor Radchenko <yantar92@posteo.net>

    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 <matt@excalamus.com>
    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 4a60186cd5..2c30a26056 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))