[nongnu] elpa/git-commit 1bac69d91d 2/3: magit-blame--line-beginning-position: New function

[ELPA Syncer]

branch: elpa/git-commit
commit 1bac69d91defb86e2e992a13a1c5b4e14a7e24a2
Author: Jonas Bernoulli <jonas@bernoul.li>
Commit: Jonas Bernoulli <jonas@bernoul.li>

    magit-blame--line-beginning-position: New function
---
 lisp/magit-blame.el | 16 ++++++++++------
 1 file changed, 10 insertions(+), 6 deletions(-)

diff --git a/lisp/magit-blame.el b/lisp/magit-blame.el
index 48097258a1..93d37e854d 100644
--- a/lisp/magit-blame.el
+++ b/lisp/magit-blame.el
@@ -543,18 +543,22 @@ modes is toggled, then this mode also gets toggled 
automatically.
     (save-excursion
       (save-restriction
         (widen)
-        (goto-char (point-min))
-        (forward-line (1- (oref chunk final-line)))
-        (let ((beg (point))
-              (end (save-excursion
-                     (forward-line (oref chunk num-lines))
-                     (point))))
+        (let* ((line (oref chunk final-line))
+               (beg (magit-blame--line-beginning-position line))
+               (end (magit-blame--line-beginning-position
+                     (+ line (oref chunk num-lines)))))
           (magit-blame--remove-overlays beg end)
           (when magit-blame--make-margin-overlays
             (magit-blame--make-margin-overlays chunk revinfo beg end))
           (magit-blame--make-heading-overlay chunk revinfo beg end)
           (magit-blame--make-highlight-overlay chunk beg))))))
 
+(defun magit-blame--line-beginning-position (line)
+  (save-excursion
+    (goto-char (point-min))
+    (forward-line (1- line))
+    (point)))
+
 (defun magit-blame--make-margin-overlays (chunk revinfo _beg end)
   (save-excursion
     (let ((line 0))