From f8eb0b30ea4c62861d2d82c6d6ed0b9826201855 Mon Sep 17 00:00:00 2001 From: Nicolas Goaziou Date: Mon, 20 Jun 2016 22:12:02 +0200 Subject: [PATCH] ob-shell: Fix "wrong type sequencep: function" error * lisp/ob-shell.el (org-babel-shell-names): Fix error introduced when switching to lexical binding. --- lisp/ob-shell.el | 21 ++++++++++----------- 1 file changed, 10 insertions(+), 11 deletions(-) diff --git a/lisp/ob-shell.el b/lisp/ob-shell.el index 7a90ea2fb..490d15e2c 100644 --- a/lisp/ob-shell.el +++ b/lisp/ob-shell.el @@ -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. -- 2.11.4.GIT