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

babel: check that language major-mode is available during tangling

This commit is contained in:
Dan Davison 2010-03-27 18:29:25 -04:00
parent c0761cc758
commit e32c066874
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
contrib/babel/lisp/org-babel-tangle.el
View File

@ -91,7 +91,7 @@ exported source code blocks by language."
(lang-specs (cdr (assoc lang org-babel-tangle-langs))) (lang-specs (cdr (assoc lang org-babel-tangle-langs)))
(ext (first lang-specs)) (ext (first lang-specs))
(she-bang (second lang-specs)) (she-bang (second lang-specs))
(commentable (not (third lang-specs))) (commentable (and (fboundp lang-f) (not (third lang-specs))))
she-banged) she-banged)
(mapc (mapc
(lambda (spec) (lambda (spec)
@ -122,7 +122,7 @@ exported source code blocks by language."
(delete-file file-name)) (delete-file file-name))
;; drop source-block to file ;; drop source-block to file
(with-temp-buffer (with-temp-buffer
(funcall lang-f) (if (fboundp lang-f) (funcall lang-f))
(when (and she-bang (not (member file-name she-banged))) (when (and she-bang (not (member file-name she-banged)))
(insert (concat she-bang "\n")) (insert (concat she-bang "\n"))
(setq she-banged (cons file-name she-banged))) (setq she-banged (cons file-name she-banged)))