From b1106ef2a74b2e88b294b05b83af22810feef4f6 Mon Sep 17 00:00:00 2001 From: stardiviner Date: Sun, 29 May 2022 12:04:56 +0800 Subject: [PATCH] Fix compatible org-core.el API function `org-babel-get-header' upgrade. --- ob-spice.el | 8 ++++++-- 1 file changed, 6 insertions(+), 2 deletions(-) diff --git a/ob-spice.el b/ob-spice.el index 1b1d31b..45a7527 100644 --- a/ob-spice.el +++ b/ob-spice.el @@ -47,7 +47,9 @@ (defun org-babel-expand-body:spice (body params) "Expand BODY according to PARAMS, return the expanded body." - (let* ((vars (mapcar #'cdr (org-babel-get-header params :var)))) + (let* ((vars (mapcar #'cdr (if (fboundp 'org-babel--get-vars) + (org-babel--get-vars params) + (org-babel-get-header params :var))))) (setq newbody ""); (setq bodylinelist (split-string body "\n")) (dolist (line bodylinelist newbody) @@ -123,7 +125,9 @@ (defun org-babel-execute:spice (body params) "Execute a block of Spice code `BODY' with org-babel and `PARAMS'." (let ((body (org-babel-expand-body:spice body params)) - (vars (mapcar #'cdr (org-babel-get-header params :var)))) + (vars (mapcar #'cdr (if (fboundp 'org-babel--get-vars) + (org-babel--get-vars params) + (org-babel-get-header params :var))))) ;;****************************** ;; clean temporary files -- 2.11.4.GIT