[nongnu] elpa/git-commit adda58b091: Prepend a directory to every refresh cache key

[ELPA Syncer]

branch: elpa/git-commit
commit adda58b091b2bdca96094268e3b7188b62102c0e
Author: Jonas Bernoulli <jonas@bernoul.li>
Commit: Jonas Bernoulli <jonas@bernoul.li>

    Prepend a directory to every refresh cache key
    
    This is useful when defining commands that perform some action in
    multiple repositories.
---
 lisp/magit-git.el | 6 ++++--
 lisp/magit-log.el | 3 ++-
 2 files changed, 6 insertions(+), 3 deletions(-)

diff --git a/lisp/magit-git.el b/lisp/magit-git.el
index 8692d92aae..d72b854d5e 100644
--- a/lisp/magit-git.el
+++ b/lisp/magit-git.el
@@ -1476,7 +1476,8 @@ configured remote is an url, or the named branch does not 
exist,
 then return nil.  I.e. return the name of an existing local or
 remote-tracking branch.  The returned string is colorized
 according to the branch type."
-  (magit--with-refresh-cache (list 'magit-get-upstream-branch branch)
+  (magit--with-refresh-cache
+      (list default-directory 'magit-get-upstream-branch branch)
     (when-let ((branch (or branch (magit-get-current-branch)))
                (upstream (magit-ref-abbrev (concat branch "@{upstream}"))))
       (magit--propertize-face
@@ -1546,7 +1547,8 @@ according to the branch type."
     (magit--propertize-face remote 'magit-branch-remote)))
 
 (defun magit-get-push-branch (&optional branch verify)
-  (magit--with-refresh-cache (list 'magit-get-push-branch branch verify)
+  (magit--with-refresh-cache
+      (list default-directory 'magit-get-push-branch branch verify)
     (when-let ((branch (or branch (setq branch (magit-get-current-branch))))
                (remote (magit-get-push-remote branch))
                (target (concat remote "/" branch)))
diff --git a/lisp/magit-log.el b/lisp/magit-log.el
index f97c96f65a..849578d8d5 100644
--- a/lisp/magit-log.el
+++ b/lisp/magit-log.el
@@ -1851,7 +1851,8 @@ Show the last `magit-log-section-commit-count' commits."
         (magit-log-insert-child-count)))))
 
 (defun magit--insert-pushremote-log-p ()
-  (magit--with-refresh-cache 'magit--insert-pushremote-log-p
+  (magit--with-refresh-cache
+      (cons default-directory 'magit--insert-pushremote-log-p)
     (not (and (equal (magit-get-push-branch)
                      (magit-get-upstream-branch))
               (or (memq 'magit-insert-unpulled-from-upstream