diff options
author | Eric Schulte <schulte.eric@gmail.com> | 2010-10-06 10:37:46 -0600 |
---|---|---|
committer | Eric Schulte <schulte.eric@gmail.com> | 2010-10-06 10:37:46 -0600 |
commit | f687f51dd0c21feb4c6bbcbc283b2b4b9842775f (patch) | |
tree | 83f1dc4bad203d67327c5568950d09d5ecfb0be9 | |
parent | 19efdcca43742b1c0d9a071476659b0f7c7fc57d (diff) | |
download | org-mode-f687f51dd0c21feb4c6bbcbc283b2b4b9842775f.tar.gz |
ob-exp: ":noweb tangle" now expands noweb references during tangling
* lisp/ob-tangle.el (org-babel-tangle-collect-blocks): accepting
"tangle" as a positive argument for the :noweb header argument
during tangling
-rw-r--r-- | lisp/ob-tangle.el | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/lisp/ob-tangle.el b/lisp/ob-tangle.el index a9429c4..3a0426a 100644 --- a/lisp/ob-tangle.el +++ b/lisp/ob-tangle.el @@ -294,7 +294,10 @@ code blocks by language." 'org-babel-expand-body:generic) body params))) (if (and (cdr (assoc :noweb params)) - (string= "yes" (cdr (assoc :noweb params)))) + (let ((nowebs (split-string + (cdr (assoc :noweb params))))) + (or (member "yes" nowebs) + (member "tangle" nowebs)))) (org-babel-expand-noweb-references info) (nth 1 info)))) (comment (when (or (string= "both" (cdr (assoc :comments params))) |