mirrors
/
org-mode
mirror of https://git.savannah.gnu.org/git/emacs/org-mode.git
0
0
Fork 1
Code Releases Activity

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:
Nicolas Goaziou 2016-06-20 22:12:02 +02:00
parent 47fdeb1f48
commit f8eb0b30ea
1 changed files with 10 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
lisp/ob-shell.el
View File

@ -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.