Commit 8663fad0 authored by Sam Steingold's avatar Sam Steingold
Browse files

add `vc-git-print-log-follow' and use it in `vc-git-print-log'

When `vc-git-print-log-follow' is true and all files are
non-directory, pass "--follow" to "git log".
This works around bug#8756 and bug#16422.
parent 1f97c37b
......@@ -886,6 +886,11 @@ This prompts for a branch to merge from."
(autoload 'vc-setup-buffer "vc-dispatcher")
(defcustom vc-git-print-log-follow nil
"If true, follow renames in Git logs for files."
:type 'boolean
:version "26.1")
(defun vc-git-print-log (files buffer &optional shortlog start-revision limit)
"Print commit log associated with FILES into specified BUFFER.
If SHORTLOG is non-nil, use a short format based on `vc-git-root-log-format'.
......@@ -905,7 +910,13 @@ If LIMIT is non-nil, show no more than this many entries."
(apply 'vc-git-command buffer
'async files
'("log" "--no-color" "--follow")
'("log" "--no-color")
(when (and vc-git-print-log-follow
(not (cl-some #'file-directory-p files)))
;; "--follow" on directories is broken
(list "--follow"))
(when shortlog
`("--graph" "--decorate" "--date=short"
,(format "--pretty=tformat:%s"
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment