diff options
author | Nicolas Goaziou <mail@nicolasgoaziou.fr> | 2016-08-22 11:16:37 +0200 |
---|---|---|
committer | Nicolas Goaziou <mail@nicolasgoaziou.fr> | 2016-08-29 08:57:10 +0200 |
commit | cddc7d8d2d916b605e24bcf7165f0c4dc8761f8e (patch) | |
tree | dade2a4c3f0839080178950ed4d605b43f8f0217 | |
parent | f79547943232b0aa4e13c0a81b04a9f57aff3d35 (diff) | |
download | org-mode-cddc7d8d2d916b605e24bcf7165f0c4dc8761f8e.tar.gz |
ob-lua: Use cl-lib
* lisp/ob-lua.el (org-babel-lua-evaluate-session): Refactor code to
avoid using unprefixed "cl" macro.
-rw-r--r-- | lisp/ob-lua.el | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/lisp/ob-lua.el b/lisp/ob-lua.el index f2918c8..9b4ec7b 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) |