mirrors
/
org-mode
mirror of https://git.savannah.gnu.org/git/emacs/org-mode.git
0
0
Fork 1
Code Releases Activity

Revert "tangled files should not be writable" 

This reverts commit 5e3b8259c7.
This commit is contained in:
Eric Schulte 2012-12-15 15:14:01 -07:00
parent 457c27d05b
commit 458824493d
1 changed files with 2 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
lisp/ob-tangle.el
View File

@ -264,12 +264,8 @@ exported source code blocks by language."
(goto-char (point-max)) (goto-char (point-max))
(insert content) (insert content)
(write-region nil nil file-name)))) (write-region nil nil file-name))))
(set-file-modes ;; if files contain she-bangs, then make the executable
file-name (when she-bang (set-file-modes file-name #o755))
;; never writable (don't accidentally edit tangled files)
(if she-bang
#o555 ;; files with she-bangs should be executable
#o444)) ;; those without should not
;; update counter ;; update counter
(setq block-counter (+ 1 block-counter)) (setq block-counter (+ 1 block-counter))
(add-to-list 'path-collector file-name))))) (add-to-list 'path-collector file-name)))))