aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--annexview.el11
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)