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.
This commit is contained in:
Eric Schulte 2012-03-14 15:10:22 -04:00
parent 4512930860
commit 3f4383baa4
1 changed files with 3 additions and 2 deletions

View File

@ -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)) "")))))