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

ob-tangle.el (org-babel-tangle): Fix readonly tangle 

* lisp/ob-tangle.el (org-babel-tangle): Fix readonly tangle.
This commit is contained in:
Sébastien Miquel 2021-05-04 22:59:36 +02:00 committed by Bastien
parent f838dbae77
commit d59f35fbb7
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
lisp/ob-tangle.el
View File

@ -268,11 +268,11 @@ matching a regular expression."
lspecs)
(when make-dir
(make-directory fnd 'parents))
;; erase previous file and set permissions on empty
;; file before writing
(write-region "" nil file-name nil 0)
(mapc (lambda (mode) (set-file-modes file-name mode)) modes)
;; erase previous file
(when (file-exists-p file-name)
(delete-file file-name))
(write-region nil nil file-name)
(mapc (lambda (mode) (set-file-modes file-name mode)) modes)
(push file-name path-collector))))))
(if (equal arg '(4))
(org-babel-tangle-single-block 1 t)