master 717d0335d72 2/2: (vc-root-diff): Don't compute and pass on WORKING-REVISION

[Dmitry Gutov]

branch: master
commit 717d0335d72de5696c5ac035b9877fec3132d189
Author: Dmitry Gutov <dmitry@gutov.dev>
Commit: Dmitry Gutov <dmitry@gutov.dev>

    (vc-root-diff): Don't compute and pass on WORKING-REVISION
    
    * lisp/vc/vc.el (vc-root-diff): Don't compute and pass on
    WORKING-REVISION (bug#66364).  It was unused.
---
 lisp/vc/vc.el | 5 ++---
 1 file changed, 2 insertions(+), 3 deletions(-)

diff --git a/lisp/vc/vc.el b/lisp/vc/vc.el
index a5575f91e9c..e4ce75107ff 100644
--- a/lisp/vc/vc.el
+++ b/lisp/vc/vc.el
@@ -2238,7 +2238,7 @@ saving the buffer."
     (vc-maybe-buffer-sync not-urgent)
     (let ((backend (vc-deduce-backend))
          (default-directory default-directory)
-         rootdir working-revision)
+         rootdir)
       (if backend
          (setq rootdir (vc-call-backend backend 'root default-directory))
        (setq rootdir (read-directory-name "Directory for VC root-diff: "))
@@ -2246,14 +2246,13 @@ saving the buffer."
        (if backend
            (setq default-directory rootdir)
          (error "Directory is not version controlled")))
-      (setq working-revision (vc-working-revision rootdir))
       ;; VC diff for the root directory produces output that is
       ;; relative to it.  Bind default-directory to the root directory
       ;; here, this way the *vc-diff* buffer is setup correctly, so
       ;; relative file names work.
       (let ((default-directory rootdir))
         (vc-diff-internal
-         t (list backend (list rootdir) working-revision) nil nil
+         t (list backend (list rootdir)) nil nil
          (called-interactively-p 'interactive))))))
 
 ;;;###autoload