From mboxrd@z Thu Jan 1 00:00:00 1970 From: Lawrence Mitchell Subject: [PATCH v2 1/3] git-blame.el: Do not use goto-line in lisp code Date: Thu, 14 Jun 2012 10:37:58 +0100 Message-ID: <1339666680-4381-1-git-send-email-wence@gmx.li> References: <87k3za9rwj.fsf@gmx.li> Mime-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: QUOTED-PRINTABLE Cc: jrnieder@gmail.com, git@vger.kernel.org, davidk@lysator.liu.se, user42@zip.com.au, osv@javad.com, gitster@pobox.com To: =?UTF-8?q?R=C3=BCdiger=20Sonderfeld?= X-From: git-owner@vger.kernel.org Thu Jun 14 11:38:57 2012 Return-path: Envelope-to: gcvg-git-2@plane.gmane.org Received: from vger.kernel.org ([209.132.180.67]) by plane.gmane.org with esmtp (Exim 4.69) (envelope-from ) id 1Sf6W0-0004Gl-Ez for gcvg-git-2@plane.gmane.org; Thu, 14 Jun 2012 11:38:56 +0200 Received: (majordomo@vger.kernel.org) by vger.kernel.org via listexpand id S1754743Ab2FNJin convert rfc822-to-quoted-printable (ORCPT ); Thu, 14 Jun 2012 05:38:43 -0400 Received: from treacle.ucs.ed.ac.uk ([129.215.16.102]:37730 "EHLO treacle.ucs.ed.ac.uk" rhost-flags-OK-OK-OK-OK) by vger.kernel.org with ESMTP id S1754009Ab2FNJim (ORCPT ); Thu, 14 Jun 2012 05:38:42 -0400 Received: from lmtp1.ucs.ed.ac.uk (lmtp1.ucs.ed.ac.uk [129.215.149.64]) by treacle.ucs.ed.ac.uk (8.13.8/8.13.4) with ESMTP id q5E9cAld007639; Thu, 14 Jun 2012 10:38:15 +0100 (BST) Received: from e4300lm.epcc.ed.ac.uk (e4300lm.epcc.ed.ac.uk [129.215.63.156]) (authenticated user=lmitche4 mech=PLAIN bits=0) by lmtp1.ucs.ed.ac.uk (8.13.8/8.13.7) with ESMTP id q5E9c1Gw025947 (version=TLSv1/SSLv3 cipher=DHE-RSA-AES256-SHA bits=256 verify=NOT); Thu, 14 Jun 2012 10:38:05 +0100 (BST) X-Mailer: git-send-email 1.7.11.rc2.9.g10afb6c In-Reply-To: <87k3za9rwj.fsf@gmx.li> X-Edinburgh-Scanned: at treacle.ucs.ed.ac.uk with MIMEDefang 2.60, Sophie, Sophos Anti-Virus, Clam AntiVirus X-Scanned-By: MIMEDefang 2.60 on 129.215.16.102 X-Scanned-By: MIMEDefang 2.52 on 129.215.149.64 Sender: git-owner@vger.kernel.org Precedence: bulk List-ID: X-Mailing-List: git@vger.kernel.org Archived-At: =46rom: R=C3=BCdiger Sonderfeld goto-line is a user-level command, instead use the lisp-level construct recommended in Emacs documentation. Signed-off-by: R=C3=BCdiger 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)) --=20 1.7.11.rc2.9.g10afb6c