浏览代码

babel: tangled files which include shebang lines are now made executable

Eric Schulte 15 年之前
父节点
当前提交
ceeb4681ef
共有 1 个文件被更改,包括 2 次插入0 次删除
  1. 2 0
      contrib/babel/lisp/org-babel-tangle.el

+ 2 - 0
contrib/babel/lisp/org-babel-tangle.el

@@ -139,6 +139,8 @@ exported source code blocks by language."
 			  (goto-char (point-max))
 			  (insert content)
 			  (write-region nil nil file-name))))
+		    ;; if files contain she-bangs, then make the executable
+		    (when she-bang (set-file-modes file-name ?\755))
                     ;; update counter
                     (setq block-counter (+ 1 block-counter))
                     (add-to-list 'path-collector file-name)))))