mirror of
https://git.savannah.gnu.org/git/emacs/org-mode.git
synced 2024-08-25 12:32:52 +00:00
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
This commit is contained in:
parent
58aeb1af15
commit
93339de71b
|
@ -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))
|
||||
|
|
Loading…
Reference in a new issue