mirror of
https://git.savannah.gnu.org/git/emacs/org-mode.git
synced 2024-08-22 16:48:32 +00:00
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:
parent
4512930860
commit
3f4383baa4
|
@ -2116,7 +2116,8 @@ parameters when merging lists."
|
||||||
(setq tangle (or (list (cdr pair)) tangle)))
|
(setq tangle (or (list (cdr pair)) tangle)))
|
||||||
(:noweb
|
(:noweb
|
||||||
(setq noweb (e-merge
|
(setq noweb (e-merge
|
||||||
'(("yes" "no" "tangle" "no-export" "strip-export"))
|
'(("yes" "no" "tangle" "no-export"
|
||||||
|
"strip-export" "eval"))
|
||||||
noweb
|
noweb
|
||||||
(split-string (or (cdr pair) "")))))
|
(split-string (or (cdr pair) "")))))
|
||||||
(:cache
|
(:cache
|
||||||
|
@ -2160,7 +2161,7 @@ CONTEXT may be one of :tangle, :export or :eval."
|
||||||
(intersect (cdr as) bs)))))
|
(intersect (cdr as) bs)))))
|
||||||
(intersect (case context
|
(intersect (case context
|
||||||
(:tangle '("yes" "tangle" "no-export" "strip-export"))
|
(:tangle '("yes" "tangle" "no-export" "strip-export"))
|
||||||
(:eval '("yes" "no-export" "strip-export"))
|
(:eval '("yes" "no-export" "strip-export" "eval"))
|
||||||
(:export '("yes")))
|
(:export '("yes")))
|
||||||
(split-string (or (cdr (assoc :noweb params)) "")))))
|
(split-string (or (cdr (assoc :noweb params)) "")))))
|
||||||
|
|
||||||
|
|
Loading…
Reference in a new issue