summaryrefslogtreecommitdiff
path: root/lisp/vc/vc.el
diff options
context:
space:
mode:
authorTino Calancha <tino.calancha@gmail.com>2016-10-20 19:39:59 +0900
committerTino Calancha <tino.calancha@gmail.com>2016-10-20 19:39:59 +0900
commit3877c911b7bd4ca7def18932615b10dc7b1fc6d3 (patch)
tree56964ee90934d3940cbb8a65118b143e1b78012e /lisp/vc/vc.el
parent8988327d548db7b69f30ea15496ccb0726fa4502 (diff)
downloademacs-3877c911b7bd4ca7def18932615b10dc7b1fc6d3.tar.gz
emacs-3877c911b7bd4ca7def18932615b10dc7b1fc6d3.tar.bz2
emacs-3877c911b7bd4ca7def18932615b10dc7b1fc6d3.zip
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).
Diffstat (limited to 'lisp/vc/vc.el')
-rw-r--r--lisp/vc/vc.el2
1 files changed, 1 insertions, 1 deletions
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*")))