master 4797eef57a9: vc-dir--count-outgoing: Bind default-directory to correct value

branch: master
commit 4797eef57a93dc670dd98cb0d47c5eb8c87c5a3a
Author: Sean Whitton <[email protected]>
Commit: Sean Whitton <[email protected]>

    vc-dir--count-outgoing: Bind default-directory to correct value
    
    * lisp/vc/vc-dir.el (vc-dir--count-outgoing): Bind
    default-directory to the correct value in the idle callback, so
    that we know we count the outgoing revisions for the correct
    repo.
---
 lisp/vc/vc-dir.el | 13 ++++++++-----
 1 file changed, 8 insertions(+), 5 deletions(-)

diff --git a/lisp/vc/vc-dir.el b/lisp/vc/vc-dir.el
index a1e3ace6dfc..8bf33836d3e 100644
--- a/lisp/vc/vc-dir.el
+++ b/lisp/vc/vc-dir.el
@@ -1447,11 +1447,14 @@ uses OVERLAY."
    (run-with-idle-timer
     0.2 nil
     (lambda ()
-      (let ((display-buffer-overriding-action
-             '(display-buffer-no-window (allow-no-window . t)))
-            (unknown (propertize "<<unknown>>" 'face 'vc-dir-header-value))
-            (buf (generate-new-buffer " *temp*" t))
-            proc)
+      (let* ((default-directory
+	      (buffer-local-value 'default-directory
+				  (overlay-buffer overlay)))
+	     (display-buffer-overriding-action
+              '(display-buffer-no-window (allow-no-window . t)))
+             (unknown (propertize "<<unknown>>" 'face 'vc-dir-header-value))
+             (buf (generate-new-buffer " *temp*" t))
+             proc)
         (with-current-buffer buf
           (condition-case _
               (progn