From: Tino Calancha <tino.calancha@gmail.com>
Date: Thu, 20 Oct 2016 10:39:59 +0000 (+0900)
Subject: vc-region-history: Search just on lines intersecting the region
X-Git-Tag: emacs-25.1.90~101
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=3877c911b7bd4ca7def18932615b10dc7b1fc6d3;p=emacs.git

vc-region-history: Search just on lines intersecting the region

* lisp/vc/vc.el (vc-region-history): If region ends in the beginning
of a line, then exclude that line from the search (Bug#24725).
---

diff --git a/lisp/vc/vc.el b/lisp/vc/vc.el
index af875e89907..ac020d09539 100644
--- a/lisp/vc/vc.el
+++ b/lisp/vc/vc.el
@@ -2393,7 +2393,7 @@ When called interactively with a prefix argument, prompt for REMOTE-LOCATION."
   "Show the history of the region FROM..TO."
   (interactive "r")
   (let* ((lfrom (line-number-at-pos from))
-         (lto   (line-number-at-pos to))
+         (lto   (line-number-at-pos (1- to)))
          (file buffer-file-name)
          (backend (vc-backend file))
          (buf (get-buffer-create "*VC-history*")))