diff options
| -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) |