Explorar o código

org-persist-read: Check expiry

Ihor Radchenko %!s(int64=3) %!d(string=hai) anos
pai
achega
1bc8389871
Modificáronse 1 ficheiros con 3 adicións e 0 borrados
  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)