[Top][All Lists]

[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 <address@hidden>
> 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 
 (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.)

reply via email to

[Prev in Thread] Current Thread [Next in Thread]