Github/emacs
2
0
Fork 1
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-16 17:24:23 +00:00
Code Issues Projects Releases Packages Wiki Activity

In vc-print-branch-log use root instead of the default directory (bug#39704)

Browse source 
* lisp/vc/vc.el (vc-print-branch-log): Use rootdir instead of
default-directory for the second arg of vc-print-log-internal.
This commit is contained in:
Juri Linkov 2020-03-10 01:34:25 +02:00
parent a1e2a68470
commit 199acd6270
2 changed files with 9 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
etc/NEWS
View file

@ -184,6 +184,9 @@ key binding
The original key binding was 'M-s', which interfered with I-search,
since the latter uses 'M-s' as a prefix key of the search prefix map.
** vc-print-branch-log shows the change log for BRANCH from its root
directory instead of the default directory.
* Incompatible Lisp Changes in Emacs 28.1

10
lisp/vc/vc.el
View file

@ -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)