[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/org 9b00f4bf1d 1/2: org-persist: Fix expiry check
From: |
ELPA Syncer |
Subject: |
[elpa] externals/org 9b00f4bf1d 1/2: org-persist: Fix expiry check |
Date: |
Fri, 17 Jun 2022 07:57:44 -0400 (EDT) |
branch: externals/org
commit 9b00f4bf1d544331795f64c499868b15f6c60bcd
Author: Ihor Radchenko <yantar92@gmail.com>
Commit: Ihor Radchenko <yantar92@gmail.com>
org-persist: Fix expiry check
* lisp/org-persist.el (org-persist--gc-expired-p): Fix incorrect plist
key.
---
lisp/org-persist.el | 4 ++--
1 file changed, 2 insertions(+), 2 deletions(-)
diff --git a/lisp/org-persist.el b/lisp/org-persist.el
index ab13652202..547004025f 100644
--- a/lisp/org-persist.el
+++ b/lisp/org-persist.el
@@ -344,8 +344,8 @@ FORMAT and ARGS are passed to `message'."
(`nil t)
(`never nil)
((pred numberp)
- (when (plist-get ,collection :access-time)
- (<= (float-time) (+ (plist-get ,collection :access-time) (* ,cnd 24 60
60)))))
+ (when (plist-get ,collection :last-access)
+ (<= (float-time) (+ (plist-get ,collection :last-access) (* ,cnd 24 60
60)))))
((pred functionp)
(funcall ,cnd ,collection))
(_ (error "org-persist: Unsupported expiry type %S" ,cnd))))