tec/org-mode
tec
/
org-mode
forked from mirrors/org-mode
1
0
Fork 0
Code Pull Requests Releases Activity

This was just an idea. We could do it but I'm reverting for now. 

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

This reverts commit c6b628d3ad.
This commit is contained in:
Dan Davison 2009-07-17 14:51:49 -04:00
parent b15beb63d2
commit 83fc113e29
1 changed files with 6 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -144,14 +144,13 @@ assumes that the appropriate major-mode is set. SPEC has the
form
(link source-name params body)"
(let ((link (first spec))
(source-name (second spec))
(body (fourth spec))
(comment-padding "* "))
(flet ((insert-comment (text)
(comment-region (point) (progn (insert text) (point)))))
(flet ((insert-comment (text)
(comment-region (point) (progn (insert text) (point)))))
(let ((link (first spec))
(source-name (second spec))
(body (fourth spec)))
(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"))))