From: Rüdiger Sonderfeld <ruediger@c-plusplus.de>
Date: Thu, 14 Jun 2012 09:37:58 +0000 (+0100)
Subject: git-blame.el: Do not use goto-line in lisp code
X-Git-Tag: v1.7.12-rc0~81^2~2
X-Git-Url: http://git.tremily.us/?a=commitdiff_plain;h=5d7da9a94489da0db3b3c7b766606b80fc71becf;p=git.git

git-blame.el: Do not use goto-line in lisp code

goto-line is a user-level command, instead use the lisp-level
construct recommended in Emacs documentation.

Signed-off-by: Rüdiger Sonderfeld <ruediger@c-plusplus.de>
Signed-off-by: Lawrence Mitchell <wence@gmx.li>
Signed-off-by: Junio C Hamano <gitster@pobox.com>
---

diff --git a/contrib/emacs/git-blame.el b/contrib/emacs/git-blame.el
index d351cfb6e..3b5d5afce 100644
--- a/contrib/emacs/git-blame.el
+++ b/contrib/emacs/git-blame.el
@@ -389,7 +389,8 @@ See also function `git-blame-mode'."
     (set-buffer git-blame-file)
     (let ((inhibit-point-motion-hooks t)
           (inhibit-modification-hooks t))
-      (goto-line start-line)
+      (goto-char (point-min))
+      (forward-line (1- start-line))
       (let* ((start (point))
              (end (progn (forward-line num-lines) (point)))
              (ovl (make-overlay start end))