From e56a05f4f5a3cce9cfdeb71854475e29aac1a6e8 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?S=C3=A9bastien=20Miquel?= Date: Tue, 4 May 2021 22:59:36 +0200 Subject: [PATCH] ob-tangle.el (org-babel-tangle): Fix readonly tangle * lisp/ob-tangle.el (org-babel-tangle): Fix readonly tangle. --- lisp/ob-tangle.el | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/lisp/ob-tangle.el b/lisp/ob-tangle.el index 36144d6ae..96a4ef049 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) -- 2.31.1