From 58aeb1af15ca8f1c2f215d6da13cf6b141ccf5e9 Mon Sep 17 00:00:00 2001 From: Ihor Radchenko Date: Tue, 3 Jan 2023 10:58:02 +0300 Subject: [PATCH] org-persist-unregister: Fix when ASSOCIATED is 'all * lisp/org-persist.el (org-persist-unregister): Do not try to normalize 'all ASSOCIATED. It is not a valid association that should be handled specially. Previously, an error was thrown. --- lisp/org-persist.el | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/lisp/org-persist.el b/lisp/org-persist.el index c3650c167..336496efb 100644 --- a/lisp/org-persist.el +++ b/lisp/org-persist.el @@ -753,12 +753,12 @@ with `org-persist-write'." When ASSOCIATED is `all', unregister CONTAINER everywhere." (unless org-persist--index (org-persist--load-index)) (setq container (org-persist--normalize-container container)) - (setq associated (org-persist--normalize-associated associated)) (if (eq associated 'all) (mapc (lambda (collection) (when (member container (plist-get collection :container)) (org-persist-unregister container (plist-get collection :associated)))) org-persist--index) + (setq associated (org-persist--normalize-associated associated)) (let ((collection (org-persist--find-index `(:container ,container :associated ,associated)))) (when collection (if (= (length (plist-get collection :container)) 1)