[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/org 2b33ef3 5/6: org-persist.el/org-persist-write: Do n
From: |
ELPA Syncer |
Subject: |
[elpa] externals/org 2b33ef3 5/6: org-persist.el/org-persist-write: Do not write when no write access |
Date: |
Tue, 19 Oct 2021 08:57:26 -0400 (EDT) |
branch: externals/org
commit 2b33ef3c97eba5314b9b92f3f25c3ca6d6b58487
Author: Ihor Radchenko <yantar92@gmail.com>
Commit: Ihor Radchenko <yantar92@gmail.com>
org-persist.el/org-persist-write: Do not write when no write access
---
lisp/org-persist.el | 19 ++++++++++---------
1 file changed, 10 insertions(+), 9 deletions(-)
diff --git a/lisp/org-persist.el b/lisp/org-persist.el
index e518974..55c6368 100644
--- a/lisp/org-persist.el
+++ b/lisp/org-persist.el
@@ -186,15 +186,16 @@ When BUFFER is `all', unregister VAR in all buffers."
(unless (file-writable-p dir)
(message "Missing write access rights to
org-persist-directory: %S"
org-persist-directory))))
- (with-temp-file (org-file-name-concat org-persist-directory
org-persist-index-file)
- (prin1 org-persist--index (current-buffer)))
- (let ((file (org-file-name-concat org-persist-directory (plist-get
index :persist-file)))
- (data (mapcar (lambda (s) (cons s (symbol-value s)))
- (plist-get index :variable))))
- (unless (file-exists-p (file-name-directory file))
- (make-directory (file-name-directory file) t))
- (with-temp-file file
- (prin1 data (current-buffer))))))))))
+ (when (file-exists-p org-persist-directory)
+ (with-temp-file (org-file-name-concat org-persist-directory
org-persist-index-file)
+ (prin1 org-persist--index (current-buffer)))
+ (let ((file (org-file-name-concat org-persist-directory
(plist-get index :persist-file)))
+ (data (mapcar (lambda (s) (cons s (symbol-value s)))
+ (plist-get index :variable))))
+ (unless (file-exists-p (file-name-directory file))
+ (make-directory (file-name-directory file) t))
+ (with-temp-file file
+ (prin1 data (current-buffer)))))))))))
(defun org-persist-write-all (&optional buffer)
"Save all the persistent data."
- [elpa] externals/org updated (7810804 -> ccb0271), ELPA Syncer, 2021/10/19
- [elpa] externals/org 3b48224 1/6: org-persist.el: Rename `org-persist-path' to `org-persist-directory', ELPA Syncer, 2021/10/19
- [elpa] externals/org bad854d 2/6: org-persist.el: Catch write errors, ELPA Syncer, 2021/10/19
- [elpa] externals/org c130f71 3/6: org-persist.el: Fix typo, ELPA Syncer, 2021/10/19
- [elpa] externals/org 46da64c 4/6: org-persist.el: Fix `add-hook' priority argument, ELPA Syncer, 2021/10/19
- [elpa] externals/org 2b33ef3 5/6: org-persist.el/org-persist-write: Do not write when no write access,
ELPA Syncer <=
- [elpa] externals/org ccb0271 6/6: org-persist.el: Do not add write hooks when there is no write access, ELPA Syncer, 2021/10/19