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 ()