diff options
| author | Rüdiger Sonderfeld <ruediger@c-plusplus.de> | 2012-06-14 10:37:58 +0100 |
|---|---|---|
| committer | Junio C Hamano <gitster@pobox.com> | 2012-06-14 10:59:09 -0700 |
| commit | 5d7da9a94489da0db3b3c7b766606b80fc71becf (patch) | |
| tree | 243210cc353ba3c112a9dfd11d47f4cf60dde809 | |
| parent | fbfe5de5bdaaf9572c1811e3b4ddfaa35e6bb227 (diff) | |
| download | git-5d7da9a94489da0db3b3c7b766606b80fc71becf.tar.gz | |
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.el | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/contrib/emacs/git-blame.el b/contrib/emacs/git-blame.el index d351cfb6e7..3b5d5afce5 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)) |