branch: externals-release/org
commit 18a2fcac240a75e4763091e742c5d36d5461a419
Author: Ihor Radchenko <yanta...@posteo.net>
Commit: Ihor Radchenko <yanta...@posteo.net>
org-persist-load:index: Skip files we have no permission deleting
* lisp/org-persist.el (org-persist-load:index):
---
lisp/org-persist.el | 7 ++++---
1 file changed, 4 insertions(+), 3 deletions(-)
diff --git a/lisp/org-persist.el b/lisp/org-persist.el
index 73d42935ff..763b84c31e 100644
--- a/lisp/org-persist.el
+++ b/lisp/org-persist.el
@@ -781,9 +781,10 @@ COLLECTION is the plist holding data collection."
(when (file-exists-p org-persist-directory)
(dolist (file (directory-files org-persist-directory 'absolute
"\\`[^.][^.]"))
- (if (file-directory-p file)
- (delete-directory file t)
- (delete-file file))))
+ (when (file-writable-p file)
+ (if (file-directory-p file)
+ (delete-directory file t)
+ (delete-file file)))))
(plist-put (org-persist--get-collection container) :expiry 'never))))
(defun org-persist--load-index ()
