diff options
| author | Juri Linkov <juri@linkov.net> | 2020-03-10 01:34:25 +0200 |
|---|---|---|
| committer | Juri Linkov <juri@linkov.net> | 2020-03-10 01:34:25 +0200 |
| commit | 199acd6270ea904e36846984887bad056d40f70b (patch) | |
| tree | 072dbacf37c841a4cce58f519cc0cf21b76b94ed /lisp/vc/vc.el | |
| parent | a1e2a6847007f56d96d0122e493d5228e5c4d08b (diff) | |
| download | emacs-199acd6270ea904e36846984887bad056d40f70b.tar.gz emacs-199acd6270ea904e36846984887bad056d40f70b.tar.bz2 emacs-199acd6270ea904e36846984887bad056d40f70b.zip | |
In vc-print-branch-log use root instead of the default directory (bug#39704)
* lisp/vc/vc.el (vc-print-branch-log): Use rootdir instead of
default-directory for the second arg of vc-print-log-internal.
Diffstat (limited to 'lisp/vc/vc.el')
| -rw-r--r-- | lisp/vc/vc.el | 10 |
1 files changed, 6 insertions, 4 deletions
diff --git a/lisp/vc/vc.el b/lisp/vc/vc.el index 96c400c54ad..607fb37807c 100644 --- a/lisp/vc/vc.el +++ b/lisp/vc/vc.el @@ -2558,15 +2558,17 @@ with its diffs (if the underlying VCS supports that)." ;;;###autoload (defun vc-print-branch-log (branch) - "Show the change log for BRANCH in a window." + "Show the change log for BRANCH root in a window." (interactive (list (vc-read-revision "Branch to log: "))) (when (equal branch "") (error "No branch specified")) - (vc-print-log-internal (vc-responsible-backend default-directory) - (list default-directory) branch t - (when (> vc-log-show-limit 0) vc-log-show-limit))) + (let* ((backend (vc-responsible-backend default-directory)) + (rootdir (vc-call-backend backend 'root default-directory))) + (vc-print-log-internal backend + (list rootdir) branch t + (when (> vc-log-show-limit 0) vc-log-show-limit)))) ;;;###autoload (defun vc-log-incoming (&optional remote-location) |