From 78959b7c2bb7a13c4ab965e2617e3e9eec127b35 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Cl=C3=A9ment=20Pit--Claudel?= Date: Fri, 4 Aug 2017 17:03:20 +0200 Subject: [PATCH] Follow renames in vc-git-region-history * lisp/vc/vc-git.el (vc-git-region-history): Pass --follow. This requires a path spec, so pass that too. --- lisp/vc/vc-git.el | 7 +++++-- 1 file changed, 5 insertions(+), 2 deletions(-) diff --git a/lisp/vc/vc-git.el b/lisp/vc/vc-git.el index cc3e295..7d13dfe 100644 --- a/lisp/vc/vc-git.el +++ b/lisp/vc/vc-git.el @@ -1159,8 +1159,11 @@ vc-git-region-history (- (+ curno curcnt) (+ headno headcnt))))) (setq lto (- lto (or to-offset last-offset))) (setq lfrom (- lfrom (or to-offset last-offset))))) - (vc-git-command buffer 'async nil "log" "-p" ;"--follow" ;FIXME: not supported? - (format "-L%d,%d:%s" lfrom lto (file-relative-name file)))) + (let ((file-relname (file-relative-name file))) + (vc-git-command buffer 'async nil "log" "-p" "--follow" + (format "-L%d,%d:%s" lfrom lto file-relname) + ;; Must include one path spec for --follow to work (#27953) + file-relname))) (require 'diff-mode) -- 2.7.4