From 0f83b2d203e8da983d23ff84afa2297aa449583a Mon Sep 17 00:00:00 2001 From: Dan Davison Date: Thu, 8 Apr 2010 12:10:25 -0400 Subject: [PATCH] babel: allow disabling of noweb expansion during tangling --- contrib/babel/lisp/org-babel-tangle.el | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/contrib/babel/lisp/org-babel-tangle.el b/contrib/babel/lisp/org-babel-tangle.el index 5dfbb94d6..64b8f0f7d 100644 --- a/contrib/babel/lisp/org-babel-tangle.el +++ b/contrib/babel/lisp/org-babel-tangle.el @@ -172,8 +172,10 @@ code blocks by language." (source-name (intern (or (fifth info) (format "block-%d" block-counter)))) (src-lang (first info)) - (body (org-babel-expand-noweb-references info)) (params (third info)) + (body (if (equal "no" (cdr (assoc :noweb params))) + (second info) + (org-babel-expand-noweb-references info))) (spec (list link source-name params body (third (cdr (assoc src-lang org-babel-tangle-langs))))) by-lang) (unless (string= (cdr (assoc :tangle params)) "no") ;; maybe skip