diff options
Diffstat (limited to 'annexview.el')
-rw-r--r-- | annexview.el | 13 |
1 files changed, 7 insertions, 6 deletions
diff --git a/annexview.el b/annexview.el index 81a37fc..735bc94 100644 --- a/annexview.el +++ b/annexview.el @@ -90,7 +90,7 @@ (if (boundp 'magit-git-executable) magit-git-executable "git") "Invoke git like this. And invoke git-annex by using \"annex\" as the subcommand." - :type 'stringp) + :type 'string) ;;; Metadata inspection @@ -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) |