ndwarshuis
/
org-mode
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

org-persist-gc: Fix when expiry is days and data is freshly created

This commit is contained in:
Ihor Radchenko 2022-01-12 18:18:58 +08:00
parent 7c2d93560c
commit 1c79af13df
No known key found for this signature in database
GPG Key ID: 6470762A7DA11D8B
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lisp/org-persist.el
View File

@ -756,10 +756,11 @@ Do nothing in an indirect buffer."
(`nil t)
(`never nil)
((pred numberp)
(<= (float-time) (+ (plist-get ,collection :access-time) (* ,cnd 24 60 60))))
(when (plist-get ,collection :access-time)
(<= (float-time) (+ (plist-get ,collection :access-time) (* ,cnd 24 60 60)))))
((pred functionp)
(funcall ,cnd ,collection))
(_ (error "org-persist: Unsupported expiry type %S" cnd))))
(_ (error "org-persist: Unsupported expiry type %S" ,cnd))))
(defun org-persist-gc ()
"Remove expired or unregisted containers.