daniel/emacs
1
2
Fork 0
Code Issues 7 Pull Requests Projects Releases Wiki Activity

update packages

Browse Source
This commit is contained in:
Daniel Weschke
2025-11-25 19:52:03 +01:00
parent 14ba373378
commit dbbae92267
280 changed files with 13451 additions and 11207 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
lisp/org/org-persist.el
View File

@@ -725,7 +725,7 @@ COLLECTION is the plist holding data collection."
(defun org-persist-read:index (cont index-file _)
"Read index container CONT from INDEX-FILE."
(when (file-exists-p index-file)
(when (and (file-exists-p index-file) (file-readable-p index-file))
(let ((index (org-persist--read-elisp-file index-file)))
(when index
(catch :found
@@ -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 ()