branch: externals/org
commit 601ce688d5a51db7f1a5262063512f13b581bdc4
Author: stardiviner <[email protected]>
Commit: Ihor Radchenko <[email protected]>
lisp/ob-clojure.el: Fix :backend override not work with
`org-babel-clojure-backend'
* lisp/ob-clojure.el (org-babel-expand-body:clojure): When The source
block specified header argument :backend, the global option
`org-babel-clojure-backend' value is default 'cider, the
`cider-buffer-ns` is not void error.
---
lisp/ob-clojure.el | 7 +++++++
1 file changed, 7 insertions(+)
diff --git a/lisp/ob-clojure.el b/lisp/ob-clojure.el
index d6f860e987..0649469b39 100644
--- a/lisp/ob-clojure.el
+++ b/lisp/ob-clojure.el
@@ -104,6 +104,13 @@
(defun org-babel-expand-body:clojure (body params)
"Expand BODY according to PARAMS, return the expanded body."
(let* ((vars (org-babel--get-vars params))
+ (backend-override (cdr (assq :backend params)))
+ (org-babel-clojure-backend
+ (cond
+ (backend-override (intern backend-override))
+ (org-babel-clojure-backend org-babel-clojure-backend)
+ (t (user-error "You need to customize `org-babel-clojure-backend'
+or set the `:backend' header argument"))))
(ns (or (cdr (assq :ns params))
(if (eq org-babel-clojure-backend 'cider)
(or cider-buffer-ns
