forked from mirrors/org-mode
ob-shell: Fix "wrong type sequencep: function" error
* lisp/ob-shell.el (org-babel-shell-names): Fix error introduced when switching to lexical binding.
This commit is contained in:
parent
47fdeb1f48
commit
f8eb0b30ea
|
@ -44,17 +44,16 @@
|
|||
'("sh" "bash" "csh" "ash" "dash" "ksh" "mksh" "posh")
|
||||
"List of names of shell supported by babel shell code blocks."
|
||||
:group 'org-babel
|
||||
:type 'string
|
||||
:initialize
|
||||
(lambda (symbol value)
|
||||
(set-default symbol (second value))
|
||||
(mapc
|
||||
(lambda (name)
|
||||
(eval `(defun ,(intern (concat "org-babel-execute:" name)) (body params)
|
||||
,(format "Execute a block of %s commands with Babel." name)
|
||||
(let ((shell-file-name ,name))
|
||||
(org-babel-execute:shell body params)))))
|
||||
(second value))))
|
||||
:type '(repeat (string :tag "Shell name: "))
|
||||
:set (lambda (symbol value)
|
||||
(set-default symbol value)
|
||||
(dolist (name value)
|
||||
(eval `(defun ,(intern (concat "org-babel-execute:" name))
|
||||
(body params)
|
||||
,(format "Execute a block of %s commands with Babel." name)
|
||||
(let ((shell-file-name ,name))
|
||||
(org-babel-execute:shell body params)))
|
||||
t))))
|
||||
|
||||
(defun org-babel-execute:shell (body params)
|
||||
"Execute a block of Shell commands with Babel.
|
||||
|
|
Loading…
Reference in New Issue