Browse Source

org-persist-read: Check expiry

Ihor Radchenko 3 năm trước cách đây
mục cha
commit
1bc8389871
1 tập tin đã thay đổi với 3 bổ sung0 xóa
  1. 3 0
      lisp/org-persist.el

+ 3 - 0
lisp/org-persist.el

@@ -743,6 +743,9 @@ When LOAD? is non-nil, load the data instead of reading."
          (data nil))
     (when (and collection
                (file-exists-p persist-file)
+               (or (not (plist-get collection :expiry)) ; current session
+                   (not (org-persist--gc-expired-p
+                       (plist-get collection :expiry) collection)))
                (or (not hash-must-match)
                    (and (plist-get associated :hash)
                         (equal (plist-get associated :hash)