From cddc7d8d2d916b605e24bcf7165f0c4dc8761f8e Mon Sep 17 00:00:00 2001 From: Nicolas Goaziou Date: Mon, 22 Aug 2016 11:16:37 +0200 Subject: [PATCH] ob-lua: Use cl-lib * lisp/ob-lua.el (org-babel-lua-evaluate-session): Refactor code to avoid using unprefixed "cl" macro. --- lisp/ob-lua.el | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/lisp/ob-lua.el b/lisp/ob-lua.el index f2918c833..9b4ec7bff 100644 --- a/lisp/ob-lua.el +++ b/lisp/ob-lua.el @@ -34,7 +34,7 @@ ;;; Code: (require 'ob) -(eval-when-compile (require 'cl)) +(require 'cl-lib) (declare-function org-remove-indentation "org" ) (declare-function lua-shell "ext:lua-mode" (&optional argprompt)) @@ -362,8 +362,8 @@ fd:close()" (split-string body "[\r\n]")) (funcall send-wait))) (results - (case result-type - (output + (pcase result-type + (`output (mapconcat #'org-trim (butlast @@ -374,7 +374,7 @@ fd:close()" (insert org-babel-lua-eoe-indicator) (funcall send-wait)) 2) "\n")) - (value + (`value (let ((tmp-file (org-babel-temp-file "lua-"))) (org-babel-comint-with-output (session org-babel-lua-eoe-indicator nil body) -- 2.11.4.GIT