Function: org-persist--refresh-gc-lock

org-persist--refresh-gc-lock is a byte-compiled function defined in org-persist.el.gz.

Signature

(org-persist--refresh-gc-lock)

Documentation

Refresh session timestamp in org-persist-gc-lock-file.

Remove expired sessions timestamps.

Source Code

;; Defined in /usr/src/emacs/lisp/org/org-persist.el.gz
(defun org-persist--refresh-gc-lock ()
  "Refresh session timestamp in `org-persist-gc-lock-file'.
Remove expired sessions timestamps."
  (let* ((file (org-file-name-concat org-persist-directory org-persist-gc-lock-file))
         (alist (when (file-exists-p file) (org-persist--read-elisp-file file)))
         new-alist)
    (setf (alist-get before-init-time alist nil nil #'equal)
          (current-time))
    (dolist (record alist)
      (when (< (- (float-time (cdr record)) (float-time (current-time)))
               org-persist-gc-lock-expiry)
        (push record new-alist)))
    (org-persist--write-elisp-file file new-alist)))