From 260007e61f5023ff886d5de26c4c3ccb9ee97a97 Mon Sep 17 00:00:00 2001 From: Eric Schulte Date: Wed, 4 Nov 2009 15:18:50 -0700 Subject: [PATCH] org-babel-tangle: now careful to only add one shebang per file --- contrib/babel/lisp/org-babel-tangle.el | 7 +++++-- 1 file changed, 5 insertions(+), 2 deletions(-) diff --git a/contrib/babel/lisp/org-babel-tangle.el b/contrib/babel/lisp/org-babel-tangle.el index 3d443cdd8..701e6aeb0 100644 --- a/contrib/babel/lisp/org-babel-tangle.el +++ b/contrib/babel/lisp/org-babel-tangle.el @@ -88,7 +88,8 @@ exported source code blocks by language." (lang-specs (cdr (assoc lang org-babel-tangle-langs))) (ext (first lang-specs)) (she-bang (second lang-specs)) - (commentable (not (third lang-specs)))) + (commentable (not (third lang-specs))) + she-banged) (mapc (lambda (spec) (let* ((tangle (cdr (assoc :tangle (third spec)))) @@ -113,7 +114,9 @@ exported source code blocks by language." ;; drop source-block to file (with-temp-buffer (funcall lang-f) - (when she-bang (insert (concat she-bang "\n"))) + (when (and she-bang (not (member file-name she-banged))) + (insert (concat she-bang "\n")) + (setq she-banged (cons file-name she-banged))) (when commentable (comment-region (point) (progn (insert "generated by org-babel-tangle") (point)))