Explorar o código

recursively expanding nested noweb references

Eric Schulte %!s(int64=16) %!d(string=hai) anos
pai
achega
50e29c200d
Modificáronse 1 ficheiros con 2 adicións e 1 borrados
  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))