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