diff options
author | Kyle Meyer <kyle@kyleam.com> | 2023-12-10 16:24:38 -0500 |
---|---|---|
committer | Kyle Meyer <kyle@kyleam.com> | 2023-12-10 16:29:27 -0500 |
commit | caa598edaf4e5999f584aa7ab2da0080f466ee3d (patch) | |
tree | 4dee46f10d92bb42422ca18bf0e7d817c67c74ce | |
parent | 984cd484cd145929ffc7ea4116848ffadd2b1d81 (diff) | |
download | annexview-caa598edaf4e5999f584aa7ab2da0080f466ee3d.tar.gz |
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.
-rw-r--r-- | annexview.el | 11 |
1 files 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) |