forked from mirrors/org-mode
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.
This commit is contained in:
parent
ce6f1799cc
commit
58aeb1af15
|
@ -753,12 +753,12 @@ with `org-persist-write'."
|
||||||
When ASSOCIATED is `all', unregister CONTAINER everywhere."
|
When ASSOCIATED is `all', unregister CONTAINER everywhere."
|
||||||
(unless org-persist--index (org-persist--load-index))
|
(unless org-persist--index (org-persist--load-index))
|
||||||
(setq container (org-persist--normalize-container container))
|
(setq container (org-persist--normalize-container container))
|
||||||
(setq associated (org-persist--normalize-associated associated))
|
|
||||||
(if (eq associated 'all)
|
(if (eq associated 'all)
|
||||||
(mapc (lambda (collection)
|
(mapc (lambda (collection)
|
||||||
(when (member container (plist-get collection :container))
|
(when (member container (plist-get collection :container))
|
||||||
(org-persist-unregister container (plist-get collection :associated))))
|
(org-persist-unregister container (plist-get collection :associated))))
|
||||||
org-persist--index)
|
org-persist--index)
|
||||||
|
(setq associated (org-persist--normalize-associated associated))
|
||||||
(let ((collection (org-persist--find-index `(:container ,container :associated ,associated))))
|
(let ((collection (org-persist--find-index `(:container ,container :associated ,associated))))
|
||||||
(when collection
|
(when collection
|
||||||
(if (= (length (plist-get collection :container)) 1)
|
(if (= (length (plist-get collection :container)) 1)
|
||||||
|
|
Loading…
Reference in a new issue