Browse Source

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.
Dan Davison 16 years ago
parent
commit
c6b628d3ad
1 changed files with 7 additions and 6 deletions
  1. 7 6
      lisp/org-babel-tangle.el

+ 7 - 6
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"))))