diff options
author | Dmitry Gutov <dmitry@gutov.dev> | 2023-10-14 20:01:24 +0300 |
---|---|---|
committer | Dmitry Gutov <dmitry@gutov.dev> | 2023-10-14 20:01:24 +0300 |
commit | 717d0335d72de5696c5ac035b9877fec3132d189 (patch) | |
tree | 709808937243c2b9f543f7933da8fbda2ab07942 /lisp/vc | |
parent | 64dcdb74172cb77650e8b46fcf08b989963cec17 (diff) |
(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.
Diffstat (limited to 'lisp/vc')
-rw-r--r-- | lisp/vc/vc.el | 5 |
1 files 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 |