From 89aa6fb7d22f0003317f894cedd088f94ff545a0 Mon Sep 17 00:00:00 2001 From: Taylor R Campbell Date: Mon, 6 Dec 2010 01:16:08 +0000 Subject: Eliminate non-interactive use of `goto-line'. Ignore-this: 562a203b85842ebc368ea80f2aa65612 Using `forward-line' in `paredit-recentre-on-sexp' is simpler anyway. darcs-hash:20101206011608-00fcc-1775f5b8c7a4eb4ab2792e5746aca95a2759dc60 --- paredit.el | 6 ++---- 1 file changed, 2 insertions(+), 4 deletions(-) (limited to 'paredit.el') diff --git a/paredit.el b/paredit.el index 9c2ed24..252fa21 100644 --- a/paredit.el +++ b/paredit.el @@ -1736,10 +1736,8 @@ With a prefix argument N, encompass all N S-expressions forward." (forward-sexp n) (let ((end-point (point))) (backward-sexp n) - (let* ((start-point (point)) - (start-line (count-lines (point-min) (point))) - (lines-on-sexps (count-lines start-point end-point))) - (goto-line (+ start-line (/ lines-on-sexps 2))) + (let ((start-point (point))) + (forward-line (/ (count-lines start-point end-point) 2)) (recenter))))) (defun paredit-focus-on-defun () -- cgit v1.2.1