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

slight simplification

Browse source
This commit is contained in:
Eric Schulte 2009-06-27 17:26:07 -07:00
parent 978104f1ae
commit 74b9c8f125
1 changed files with 1 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
lisp/org-babel-tangle.el
View file

@ -44,7 +44,6 @@ file into their own source-specific files."
(interactive)
(save-excursion
(let ((base-name (file-name-sans-extension (buffer-file-name)))
(blocks (org-babel-collect-blocks))
(block-counter 0))
(mapc ;; for every language create a file
(lambda (by-lang)
@ -68,7 +67,7 @@ file into their own source-specific files."
by-session)
(setq block-counter (+ block-counter (length (cdr (car by-session)))))
(to-file (format "%s.%s" base-name ext) (cdr (car by-session)))))))
blocks)
(org-babel-collect-blocks))
(message "tangled %d source-code blocks" block-counter))))
(defun org-babel-collect-blocks ()