branch: externals/org
commit 1c79af13df9d3a611e4b773d395633e9095d367b
Author: Ihor Radchenko <yanta...@gmail.com>
Commit: Ihor Radchenko <yanta...@gmail.com>
org-persist-gc: Fix when expiry is days and data is freshly created
---
lisp/org-persist.el | 5 +++--
1 file changed, 3 insertions(+), 2 deletions(-)
diff --git a/lisp/org-persist.el b/lisp/org-persist.el
index 7ac6940b0b..243e2b22c5 100644
--- a/lisp/org-persist.el
+++ b/lisp/org-persist.el
@@ -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.
