From: Lawrence Mitchell Date: Thu, 14 Jun 2012 09:37:58 GMT Subject: [PATCH v2 1/3] git-blame.el: Do not use goto-line in lisp code Message-ID: <1339666680-4381-1-git-send-email-wence@gmx.li> In-Reply-To: <87k3za9rwj.fsf@gmx.li> From: Rüdiger Sonderfeld goto-line is a user-level command, instead use the lisp-level construct recommended in Emacs documentation. Signed-off-by: Rüdiger Sonderfeld Signed-off-by: Lawrence Mitchell --- contrib/emacs/git-blame.el | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) No change from v1 diff --git a/contrib/emacs/git-blame.el b/contrib/emacs/git-blame.el index 37d797e..5428ff7 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)) -- 1.7.11.rc2.9.g10afb6c