From c6b628d3ad1d173b6572afe3357d86aad88b312c Mon Sep 17 00:00:00 2001 From: Dan Davison Date: Thu, 16 Jul 2009 11:25:57 -0400 Subject: [PATCH] Make org-babel-tangle comment with ;;*. With a view to providing org-style folding with the outline-regexp settings from Tassilo Horn / Michael Zeller / Sebastain Vauban. --- lisp/org-babel-tangle.el | 13 +++++++------ 1 file changed, 7 insertions(+), 6 deletions(-) diff --git a/lisp/org-babel-tangle.el b/lisp/org-babel-tangle.el index 8115e46e1..6fadaa6b4 100644 --- a/lisp/org-babel-tangle.el +++ b/lisp/org-babel-tangle.el @@ -145,13 +145,14 @@ assumes that the appropriate major-mode is set. SPEC has the form (link source-name params body)" - (flet ((insert-comment (text) - (comment-region (point) (progn (insert text) (point))))) - (let ((link (first spec)) - (source-name (second spec)) - (body (fourth spec))) + (let ((link (first spec)) + (source-name (second spec)) + (body (fourth spec)) + (comment-padding "* ")) + (flet ((insert-comment (text) + (comment-region (point) (progn (insert text) (point))))) (insert "\n\n") - (insert-comment (format "[[%s][%s]]" (org-link-escape link) source-name)) + (insert-comment (format "* [[%s][%s]]" (org-link-escape link) source-name)) (insert (format "\n%s\n" (org-babel-chomp body))) (insert-comment (format "%s ends here" source-name)) (insert "\n")))) -- 2.11.4.GIT