[elpa] externals/org a8790ed09e 2/6: lisp/org-persist.el: Fix regression missed by 7fd8099

[ELPA Syncer]

branch: externals/org
commit a8790ed09ef6f9ffc4ec7157db5b24e988cb251d
Author: Lukas Rudd Andersen <lra@phdk.org>
Commit: Ihor Radchenko <yantar92@posteo.net>

    lisp/org-persist.el: Fix regression missed by 7fd8099
    
    * lisp/org-persist.el: (org-persist--find-index): Fix regression that
      makes the function return nil when container in COLLECTION is not a
      list of containers.
    
    TINYCHANGE
---
 lisp/org-persist.el | 8 +++++---
 1 file changed, 5 insertions(+), 3 deletions(-)

diff --git a/lisp/org-persist.el b/lisp/org-persist.el
index 8114fd5b9a..7bae09f92c 100644
--- a/lisp/org-persist.el
+++ b/lisp/org-persist.el
@@ -546,13 +546,15 @@ FORMAT and ARGS are passed to `message'."
                          (and hash (gethash (cons cont (list :hash hash)) 
org-persist--index-hash))
                          (and key (gethash (cons cont (list :key key)) 
org-persist--index-hash))))
              (when (and r
-                        ;; Every element in CONTAINER matches
-                        ;; COLLECTION.
+                        ;; Every element in container group of
+                        ;; COLLECTION matches returned CONTAINER. 
                         (seq-every-p
                          (lambda (cont)
                            (org-persist-collection-let r
                              (member cont container)))
-                         container))
+                         (if (listp (car container))
+                             container
+                           (list container))))
                (throw :found r))))))))
 
 (defun org-persist--add-to-index (collection &optional hash-only)