diff options
author | Lukas Rudd Andersen <lra@phdk.org> | 2024-09-18 00:54:27 +0200 |
---|---|---|
committer | Ihor Radchenko <yantar92@posteo.net> | 2024-09-22 11:06:41 +0200 |
commit | a8790ed09ef6f9ffc4ec7157db5b24e988cb251d (patch) | |
tree | d306fe5e4b6ae677a5f4f8a71e4f4ff1861ef171 | |
parent | 8b8b61d277d50a78bb288e6e16879574424a1187 (diff) |
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
-rw-r--r-- | lisp/org-persist.el | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/lisp/org-persist.el b/lisp/org-persist.el index 8114fd5b9..7bae09f92 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) |