diff options
| author | Sébastien Miquel <sebastien.miquel@posteo.eu> | 2021-05-04 22:59:36 +0200 |
|---|---|---|
| committer | Bastien <bzg@gnu.org> | 2021-05-05 08:42:46 +0200 |
| commit | d59f35fbb702201924aab577db07b659a2e11b5f (patch) | |
| tree | 2a6ab34e1858b4ac8474071e46e03f83204666ff | |
| parent | f838dbae773265827bafcdb8b116a207e4dbb5e2 (diff) | |
| download | org-mode-d59f35fbb702201924aab577db07b659a2e11b5f.tar.gz | |
ob-tangle.el (org-babel-tangle): Fix readonly tangle
* lisp/ob-tangle.el (org-babel-tangle): Fix readonly tangle.
| -rw-r--r-- | lisp/ob-tangle.el | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/lisp/ob-tangle.el b/lisp/ob-tangle.el index 36144d6..96a4ef0 100644 --- a/lisp/ob-tangle.el +++ b/lisp/ob-tangle.el @@ -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) |