瀏覽代碼

recursively expanding nested noweb references

Eric Schulte 16 年之前
父節點
當前提交
50e29c200d
共有 1 個文件被更改,包括 2 次插入1 次删除
  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
                           (save-excursion
                             (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)))))
     new-body))