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."
  (when org-persist--wrote-to-disk
    (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)))
      (ignore-errors (org-persist--write-elisp-file file new-alist)))))