aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorRĂ¼diger Sonderfeld <ruediger@c-plusplus.de>2012-06-14 10:37:58 +0100
committerJunio C Hamano <gitster@pobox.com>2012-06-14 10:59:09 -0700
commit5d7da9a94489da0db3b3c7b766606b80fc71becf (patch)
tree243210cc353ba3c112a9dfd11d47f4cf60dde809
parentfbfe5de5bdaaf9572c1811e3b4ddfaa35e6bb227 (diff)
downloadgit-5d7da9a94489da0db3b3c7b766606b80fc71becf.tar.gz
git-5d7da9a94489da0db3b3c7b766606b80fc71becf.tar.xz
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>
-rw-r--r--contrib/emacs/git-blame.el3
1 files changed, 2 insertions, 1 deletions
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))