[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/org d59f35f: ob-tangle.el (org-babel-tangle): Fix reado
From: |
ELPA Syncer |
Subject: |
[elpa] externals/org d59f35f: ob-tangle.el (org-babel-tangle): Fix readonly tangle |
Date: |
Wed, 5 May 2021 02:57:10 -0400 (EDT) |
branch: externals/org
commit d59f35fbb702201924aab577db07b659a2e11b5f
Author: Sébastien Miquel <sebastien.miquel@posteo.eu>
Commit: Bastien <bzg@gnu.org>
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 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)
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [elpa] externals/org d59f35f: ob-tangle.el (org-babel-tangle): Fix readonly tangle,
ELPA Syncer <=