mirror/org-mode
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs/org-mode.git synced 2024-12-12 09:28:11 +00:00
Code

Make org-babel-tangle comment with ;;*.

Browse Source 
With a view to providing org-style folding with the outline-regexp
settings from Tassilo Horn / Michael Zeller / Sebastain Vauban.
This commit is contained in:
Dan Davison 2009-07-16 11:25:57 -04:00
parent 690ed664c6
commit c6b628d3ad
1 changed files with 7 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
lisp/org-babel-tangle.el
View File

@ -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"))))