From caa598edaf4e5999f584aa7ab2da0080f466ee3d Mon Sep 17 00:00:00 2001
From: Kyle Meyer <kyle@kyleam.com>
Date: Sun, 10 Dec 2023 16:24:38 -0500
Subject: annexview--with-cache: Assign result of cl-delete-if

Don't rely on cl-delete-if's modification of the input to give the
desired result.
---
 annexview.el | 11 ++++++-----
 1 file changed, 6 insertions(+), 5 deletions(-)

diff --git a/annexview.el b/annexview.el
index 5f6d097..735bc94 100644
--- a/annexview.el
+++ b/annexview.el
@@ -153,11 +153,12 @@ And invoke git-annex by using \"annex\" as the subcommand."
        (if (equal annexview-git-annex-hash
                   (cdr (assq :hash ,cached)))
            (cdr (assq :result ,cached))
-         (cl-delete-if (lambda (x)
-                         (and (equal (car x) ,keyvar)
-                              (not (equal annexview-git-annex-hash
-                                          (cdr (assq :hash x))))))
-                       annexview--cache)
+         (setq annexview--cache
+               (cl-delete-if (lambda (x)
+                               (and (equal (car x) ,keyvar)
+                                    (not (equal annexview-git-annex-hash
+                                                (cdr (assq :hash x))))))
+                             annexview--cache))
          (let ((,result ,(macroexp-progn body)))
            (push (list ,keyvar
                        (cons :hash annexview-git-annex-hash)
-- 
cgit v1.2.3