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).
This commit is contained in:
Tino Calancha 2016-10-20 19:39:59 +09:00
parent 8988327d54
commit 3877c911b7

View file

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