[elpa] externals/org 30314c6038 2/2: Merge branch 'bugfix'

[ELPA Syncer]

branch: externals/org
commit 30314c60385148de2e44bb6b3319c02d296de170
Merge: 9e5c25ba75 58aeb1af15
Author: Ihor Radchenko <yantar92@posteo.net>
Commit: Ihor Radchenko <yantar92@posteo.net>

    Merge branch 'bugfix'
---
 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 43a35e6f4c..20a420929e 100644
--- a/lisp/org-persist.el
+++ b/lisp/org-persist.el
@@ -913,12 +913,12 @@ When REMOVE-RELATED is non-nil, remove all the containers 
stored with
 the CONTAINER as well."
   (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) :remove-related remove-related)))
             org-persist--index)
+    (setq associated (org-persist--normalize-associated associated))
     (let ((collection (org-persist--find-index `(:container ,container 
:associated ,associated))))
       (when collection
         (if (or remove-related (= (length (plist-get collection :container)) 
1))