Browse Source

recursively expanding nested noweb references

Eric Schulte 16 years ago
parent
commit
50e29c200d
1 changed files with 2 additions and 1 deletions
  1. 2 1
      lisp/org-babel-tangle.el

+ 2 - 1
lisp/org-babel-tangle.el

@@ -216,7 +216,8 @@ the source-code block which holds BODY."
                       (if point
                       (if point
                           (save-excursion
                           (save-excursion
                             (goto-char point)
                             (goto-char point)
-                            (concat "\n" (second (org-babel-get-src-block-info))))
+                            (concat "\n" (org-babel-expand-noweb-references
+                                          (org-babel-get-src-block-info))))
                         "")))))
                         "")))))
         (nb-add (buffer-substring index (point-max)))))
         (nb-add (buffer-substring index (point-max)))))
     new-body))
     new-body))