diff options
author | Eric Schulte <eric.schulte@gmx.com> | 2012-03-14 15:10:22 -0400 |
---|---|---|
committer | Eric Schulte <eric.schulte@gmx.com> | 2012-03-14 15:12:44 -0400 |
commit | 3f4383baa4f72e229272e267b70b915a740ab3a7 (patch) | |
tree | e40ee3d094fdca75fe01a99677c8cd2090f9f354 | |
parent | 45129308608857e22508fa1c51d61af22e51ab4d (diff) | |
download | org-mode-3f4383baa4f72e229272e267b70b915a740ab3a7.tar.gz |
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.
-rw-r--r-- | lisp/ob.el | 5 |
1 files changed, 3 insertions, 2 deletions
@@ -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)) ""))))) |