[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
bug#23679: 25.0.94; vc-region-history does not work correctly when narro
From: |
Charles A. Roelli |
Subject: |
bug#23679: 25.0.94; vc-region-history does not work correctly when narrowed |
Date: |
Wed, 20 Dec 2017 21:18:55 +0100 |
> From: Ivan Andrus <darthandrus@gmail.com>
> Date: Wed, 1 Jun 2016 20:44:03 -0600
>
> 1. Emacs -Q
> 2. Open a file with git history, say something in the Emacs repository.
> 3. Narrow to a region not at the beginning of the file
> 4. Select a region
> 5. M-x vc-region-history
> 6. Notice that the history shown is for the beginning of the file
>
> This is because vc-region-history uses line-number-at-pos which returns
> the line number in the narrowed portion of the buffer.
>
> We could either put a save-restriction/widen pair in vc-region-history
> or create a function (say widened-line-number-at-pos or
> file-line-number-at-pos), which would be generally useful IMO.
> However, that would lead to two calles to save-restriction and widen
> instead of just one. Given the recent discussion on emacs-devel about
> widening for programs I felt I should get some feed back on the
> preferred method before pushing a fix.
>
> -Ivan
In the meantime, line-number-at-pos got an extra optional argument to
count from (point-min), so this should now be fixed:
branch: master
commit 9f1c613b07e4a745671af5818366660e3765984d
Fix vc-region-history when narrowed
* lisp/vc/vc.el (vc-region-history): Fix behavior when narrowed, by using
line numbers starting from (point-min).
---
lisp/vc/vc.el | 4 ++--
1 file changed, 2 insertions(+), 2 deletions(-)
diff --git a/lisp/vc/vc.el b/lisp/vc/vc.el
index b159991..f48f682 100644
--- a/lisp/vc/vc.el
+++ b/lisp/vc/vc.el
@@ -2417,8 +2417,8 @@ When called interactively with a prefix argument, prompt
for REMOTE-LOCATION."
(defun vc-region-history (from to)
"Show the history of the region FROM..TO."
(interactive "r")
- (let* ((lfrom (line-number-at-pos from))
- (lto (line-number-at-pos (1- to)))
+ (let* ((lfrom (line-number-at-pos from t))
+ (lto (line-number-at-pos (1- to) t))
(file buffer-file-name)
(backend (vc-backend file))
(buf (get-buffer-create "*VC-history*")))
(I forgot to mention the bug# in the commit, will hopefully remember
next time.)
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- bug#23679: 25.0.94; vc-region-history does not work correctly when narrowed,
Charles A. Roelli <=