[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/org 703df9310a 07/31: org-persist: Cleanup on removal a
From: |
ELPA Syncer |
Subject: |
[elpa] externals/org 703df9310a 07/31: org-persist: Cleanup on removal and version mismatch |
Date: |
Sat, 29 Jan 2022 04:58:00 -0500 (EST) |
branch: externals/org
commit 703df9310acdfc57b1a6e3028ea923f6a71587b4
Author: Ihor Radchenko <yantar92@gmail.com>
Commit: Ihor Radchenko <yantar92@gmail.com>
org-persist: Cleanup on removal and version mismatch
* lisp/org-persist.el (org-persist--remove-from-index):
(org-persist-load:index): Garbage collect caches.
---
lisp/org-persist.el | 6 ++++++
1 file changed, 6 insertions(+)
diff --git a/lisp/org-persist.el b/lisp/org-persist.el
index 85908db788..0dabb54fe8 100644
--- a/lisp/org-persist.el
+++ b/lisp/org-persist.el
@@ -328,6 +328,7 @@ Return PLIST."
(when existing
(org-persist-collection-let collection
(dolist (cont (cons container container))
+ (org-persist-gc:generic cont collection)
(remhash (cons cont associated) org-persist--index-hash)
(when path (remhash (cons cont (list :file path))
org-persist--index-hash))
(when inode (remhash (cons cont (list :inode inode))
org-persist--index-hash))
@@ -494,6 +495,11 @@ COLLECTION is the plist holding data collectin."
(if org-persist--index
(mapc (lambda (collection) (org-persist--add-to-index collection
'hash)) org-persist--index)
(setq org-persist--index nil)
+ (when (file-exists-p org-persist-directory)
+ (dolist (file (directory-files org-persist-directory 'absolute
"^[^.][^.]"))
+ (if (file-directory-p file)
+ (delete-directory file t)
+ (delete-file file))))
(plist-put (org-persist--get-collection container) :expiry 'never))))
(defun org-persist--load-index ()
- [elpa] externals/org updated (22e6ed6b89 -> ac5742f296), ELPA Syncer, 2022/01/29
- [elpa] externals/org 2a4e5a8e58 02/31: org-persist--normalize-associated: Use cache to calculate buffer hash, ELPA Syncer, 2022/01/29
- [elpa] externals/org 703df9310a 07/31: org-persist: Cleanup on removal and version mismatch,
ELPA Syncer <=
- [elpa] externals/org dafa32da49 06/31: org-persist: Update index version, ELPA Syncer, 2022/01/29
- [elpa] externals/org f963d617a4 14/31: Fix checkdoc warnings, ELPA Syncer, 2022/01/29
- [elpa] externals/org 9b650938e7 13/31: org-persist: Provide human readable access time and make sure it exist, ELPA Syncer, 2022/01/29
- [elpa] externals/org 1869a37a2c 10/31: Fix org-persist--remove-from-index, ELPA Syncer, 2022/01/29
- [elpa] externals/org aca62116da 12/31: org-persist-write: Update buffer hash on save, ELPA Syncer, 2022/01/29
- [elpa] externals/org edd7f2962f 01/31: org-persist: Reimplement using more generic approach, ELPA Syncer, 2022/01/29
- [elpa] externals/org 7c2d93560c 03/31: org-persist-default-expiry: Introduce and change default, ELPA Syncer, 2022/01/29
- [elpa] externals/org 1084566322 08/31: Fix org-persist-unregister, ELPA Syncer, 2022/01/29
- [elpa] externals/org d5fc159bf7 15/31: Fix compiler warnings, ELPA Syncer, 2022/01/29
- [elpa] externals/org 203420504e 11/31: org-persist-load:elisp: fix loading, ELPA Syncer, 2022/01/29