From 3f4383baa4f72e229272e267b70b915a740ab3a7 Mon Sep 17 00:00:00 2001 From: Eric Schulte Date: Wed, 14 Mar 2012 15:10:22 -0400 Subject: [PATCH] add "eval" option to noweb * lisp/ob.el (org-babel-merge-params): Add "eval" as acceptable noweb argument. (org-babel-noweb-p): The "eval" argument only expands during evaluation. --- lisp/ob.el | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/lisp/ob.el b/lisp/ob.el index 29f500e65..531cd16f8 100644 --- a/lisp/ob.el +++ b/lisp/ob.el @@ -2116,7 +2116,8 @@ parameters when merging lists." (setq tangle (or (list (cdr pair)) tangle))) (:noweb (setq noweb (e-merge - '(("yes" "no" "tangle" "no-export" "strip-export")) + '(("yes" "no" "tangle" "no-export" + "strip-export" "eval")) noweb (split-string (or (cdr pair) ""))))) (:cache @@ -2160,7 +2161,7 @@ CONTEXT may be one of :tangle, :export or :eval." (intersect (cdr as) bs))))) (intersect (case context (:tangle '("yes" "tangle" "no-export" "strip-export")) - (:eval '("yes" "no-export" "strip-export")) + (:eval '("yes" "no-export" "strip-export" "eval")) (:export '("yes"))) (split-string (or (cdr (assoc :noweb params)) "")))))